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OS/360 JCL PROBLEMS 

TAPE and DASD OUTPUT JCL PROBLEMS 

Write JCL Cards for the following four problems. In each case, a tape or disk file is 
generated by a program called GEN. 




OUTDD 



1. Generate a 9 track tape file on volume TP009 - Standard Labels - Expiration date i 
66360 - Catalog it - Data Set Name is GENFILE. 

2. Generate a 9 track tape file on any volume - No Label - Pass to next step - Use 
temporary name. 

3. Generate a disk file on volume 222222 - Keep it - Name is GenFile - Retention 
period is 30 days - Request space for 400 80byte records - Begin on cylinder 
boundary - Use 50 for secondary quantity. 

4. Generate a disk file on volume 111111 - Allocate 30 cylinders - Delete at end of 
Job step. 

JCL PROBLEMS 

Write JCL Cards for the following four problems. 

Each problem is a separate job. 

DBname is written outside the I/O block -DSname is written inside the I/O Block - 
Pifogram name is written inside the CPU block — All programs are stored on SYSI. - 
USERLIB. 



TRANS 



Catalog change 
Standard Label 



LIS TOUT 




CHANGES 



6. 



Pay-Master 



Pay-Master 




CHANGES 

Standard Labels - Changes is cataloged - Pay-Master retention period is 3 days 
Pay Master is the name of a generation data group - Delete changes. 

7. 




TABLES 
No Labels /Nothing Cataloged 

Input has external volume serial no. of PO L007 
Tables is located on volume 222222 



PREMDIST 



DISTPGM 



BALFWD 




TRANSIN 

TRANSOUT 
30 Cylinder 



WORKFILE - Tape or 
Disk 100 Tracks 



JOURNAL 



Standard Labels 



TRANS 1 and TRANS2 are not cataloged. Keep Both. 



9. Given: 



1. Job name is PROGA. 

2. Account number is 563. 

3. Programmer responsible is r BIG OS'. 

4. Control statements in addition to the errors and diagnostic messages are to 
be written. 

5. The program to be executed is PAYROLL and is found in a private library named 
named PVT. LIB. 

6. The input data set to be processed is cataloged by the name DATAIN and is 
defined on a DD card named INPUT. 

7. The output data set is to be cataloged as DATAOUT and is defined on a DD 
card named OUTPUT. 

8. Transaction cards will be read through the job stream. Use a DD card 
named CARD IN. 



9. Delete DATAIN at completion of use. 



10. DATAIN is to be on tape. 

11. DATAOUT is to be on disk and should have 100 tracks allocated to it. 

A. Write the JOB, EXEC, and DD cards to process this job. 

B. Catalog the | above procedure with the name CALC. What are the 
advantages of catalog procedures ? Disadvantages ? 

C. Call the above cataloged procedure from the library for execution and 
change the procedure so that DATAOUT is written on tape. 




DATAOUT 
DSNAME 



OUTPUT 



CARD IN 



10. Use ASMFCLG to compile and test a program with one data set which is to be 
printed. Its DD name is ANSWERS. Override the SYSSQ parameters in the 
cataloged procedure to say UNIT=SYSDA. 

11. Write the JCL and utility control cards to punch a library called SYS1. SAMPLIB. 

12. Write the JCL and utility control cards to punch a member named IEAIPL00 from 
the library called SYS1. SAMPLIB. 

LINKAGE EDITOR PROBLEMS 



13. Using procedure COBECLG, make the necessary changes and additions to: 

Compile, linkedit, and test a cobol program which calls 3 assembler 
language subroutines - SUBA, SUBB, SUBJ. The subroutines are on 
SYS1. USERLIB, SYS1, USERLIB is cataloged. Specify the following 
overlay structure: 



SUBA 



COBOL 
PROGRAM 



SUBB 



SUBJ 



14. Using procedure COBECLG, make the necessary changes and additions to: 



Compile, linkedit, and test a COBOL Program which calls 4 assembler 
language Subroutines - SUBA, SUBB, SUBC, and SUBJ, SUBA, SUBB, 
and SUBJ are on SYS1. USERLIB. SUBC is not yet written. Negate the 
search for SUBC. 
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IBM System/360 Assembler Ceding Form 



program PROBLEM 1 SOLUTION 


PUNCHING INSTRUCTIONS 


PAGE 1 OF 1 




GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40 45 50 55 60 65 7l" 




//JOCK JOB l.NAME.MSGLEVEL=l 






//SI EXEC PGM=GEN 






//OUTDD DD UNIT=2^0 0,DSNAME=GENFILE,DISP=(CATLG),VOLUME=SER=TP0 09. 


F 




// LABEL=EXPDT=66360 











































































































































IBM 



IBM System/360 Assembler Coding Form 



program PROBLEM 2 SOLUTION 


PUNCHING INSTRUCTIONS 
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GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40. 45 50 55 60 65 7l' 




//CROCK JOB l.NAME.MSGLEVEL=l 






//SI EXEC PGM=GEN 






//OUTDD DD UNIT=2^0 0.LABEL = C.NL).DISP = ( r .PASS).DSNAME = £ACE 
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IBM System/360 Assembler Coding Form 



PROGRAM 


PROBLEM 3 SOLUTION 




PUNCHING INSTRUCTIONS 
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GRAPHIC 


















CARD ELECTRO NUMBER 












.... 













PROGRAMMER 




DATE 


PUNCH 











vo 



STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40 45 50 55 60 65 7l" 




//FLOCK JOB l.NAME.MSGLEVEL=l 






//SI EXEC PGM=GEN 






//OUTDD DD DSNAME=GENFILE.SPACE=C80 S C^00.50). . . ROUND) .Dl SP=C. KEEP) . 


S 




// VOLUME=SER=2 22 22 2.LABEL=RETPD=30.UNIT=SYSDA 
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IBM System/360 Assembler Coding Form 



program PROBLEM ** SOLUTION 


PUNCHING INSTRUCTIONS 
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GRAPHIC 
















CARO ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40. 45 50 55 60 65 7l" 




//ROOK JOB l.NAME.MSGLEVEL=l 






//STEPONE EXEC PGM=GEN 






//OUTDD DD SPACE=CCYL.30).VOLUME=SER=111111.UNIT=SYSDA 
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IBM System/360 Assembler Coding Form 



PROGRAM 


PROBLEM 5 SOLUTION 




PUNCHING INSTRUCTIONS 
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GRAPHIC 
















CARD ELECTRO NUMBER 




DATE 




















PROGRAMMER 




PUNCH 



STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40 45 50 55 60 65 71 




//JOJO JOB 1,NAME,MSGLEVEL=1 






//JOBLIB DD DISP=0LD,DSNAME=SYS1 .USERLIB 






//SI EXEC PGM=LISTCHG 






//LISTOUT DD SYSOUT=A 






//CHANGES DD DI SP=(, CATLG) , DSNAME=CHANGES, UNI T= 2^0 






//TRANS DD * 


















DECK 


















/'* 
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IBM System/360 Assembler Ceding Form 



program PROBLEM 6 SOLUTION 


PUNCHING INSTRUCTIONS 


PAGE 1 OF ! 




GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 


Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40 45 50 55 60 65 71 


//YUK JOB 1,NAME,MSGLEVEL=1 




//JOBLIB DD DSNAME=SYS1.USERLIB,DISP=(0LD^PASS) 




//SI EXEC PGM=PAYMAINT 




//CHANGES DD DSNAME=CHANGES, DISP=(OLD, DELETE) 




//PAYIN DD DSNAME=PAY.MASTERC0).DISP=OLD 




//PAYOUT DD DSNAME=PAY,MASTER(+O,DISP=(,CATLG),UNIT=2^00. 


> 


// LABEL=RETPD=3 
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IBM System/360 Assembler Coding Form 



PROGRAM 


PROBLEM 7 SOLUTION 




PUNCHING INSTRUCTIONS 


PAGE 1 OF 1 




GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 


Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40. 45 50 55 60 65 71 


//YOCK JOB 1,NAME,MSGLEVEL=1 




//JOBLIB DD DSNAME=SYS1.USERLIB,DISP=(0LD,PASS) 




//SI EXEC PGM=CALC1 




//POLICY1 DD LABEL=(,NL),VOLUME=SER=POL007,UNIT=2*tQQ,DISP=OLD 




//TABLES DD VOLUME=SER=22222 2 ,UNI T=SYSDA, DSNAME=TABLES, DISP=OLD 




//POLICY2 DD LABEL=(,NL),DISP=(,KEEP),UNIT=2**00 
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IBM System/360 Assembler Coding Farm 



program PROBLEM 8 SOLUTION 


PUNCHING INSTRUCTIONS 


PAGE 1 OF 1 




GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40 45 50 55 60 65 71 




//YECH JOB l.NAME.MSGLEVEL=l 






//JOBLIB DD DSNAME=SYS1.USERLIB.DISP=(0LD.PASS) 






//SI EXEC PGM=DISTPGM 






//BALFWD DD UNIT=SYSCP 






//JOURNAL DD SYSOUT=A 






//WORKFILE DD UNI T=SYSSQ. SPACE=CTRK . 100) 






//TRANSOUT DD VOLUME = SER= 12 3**5 . DSNAME = TRANS2 . UNI T=SYSDA. DI SP=f . KEEP) . 


I 




// SPACE=(CYL,30) 






//TRANS IN DD VOLUME = SER= 12 3^5, DSNAME=TRANS 1 , UN I T=SYSDA. DISP=OLD 






//PREMDIST DD * 


















DATA DECK 


















/'* 
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IBM System/360 Assembler Coding Form 



program PROBLEM 9 SOLUTION 


PUNCHING INSTRUCTIONS 


PAGE 1 OF 2 

























GRAPHIC 






CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 


Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40. 45 50 55 60 65 71 


A 








//PROGA JOB 563. f BIG OZ 1 ,MSGLEVEL=1 




//JOBLIB DD DSNAME=PVT.LIB.DISP=OLD PVT.LIB IS CATALOGED 




//CARDIN DD * 








DATA DECK 
















B 








//JOBBY JOB 




//SI EXEC PGM=IEBUPDAT.PARM=NEW 




//SYSUT2 DD DSNAME=SYSl.PROCLIB.DISP=OLD 




//SYSPRINT DD SYSOUT=A 




//SYSIN DD DATA 




./ ADD CALC,00,0,1 




//STEP1 EXEC PGM=PAYROLL 




//INPUT DD DSNAME=DATAIN,DISP=(OLD, DELETE) 








//OUTPUT DD DISP = r.CATLG > ).UNIT=SY<;DA r SPACE = rTRK / 1 OfO, nSNAMFmATAnilT 




1 n 




ADVANTAGE IS YOU NEED NOT SUPPLY JCL EACH TIME, I.E., FEWER C/3 1 


SDS 


DISADVANTAGE IS IT REQUIRES DISK SPACE 
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IBM System/360 Assembler Coding Form 



program PROBLEM 9 SOLUTION (CONT'D.) 


PUNCHING INSTRUCTIONS 


PAGE 2 OF 2 




GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















o\ 



STATEMENT 


Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40. 45 50 55 60 65 7} 


c 








//JOBZ JOB 563, 'BIG OZ f ,MSGLEVEL= 1 




//JOBLIB DD DISP=OLD,DSNAME=PVT.LIB 




//ST1 EXEC CALC 




//STEP1. OUTPUT DD UNIT = 2<t00 




//STEP1.CARDIN DD * 








CARD DECK 








/* 
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IBM System/360 Assembler Coding Form 



PROGRAM 


PROBLEM 10 SOLUTION 




PUNCHING INSTRUCTIONS 


PAGE 1 OF 1 




GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40. 45 50 55 60 65 71 




//YUMYUM JOB 1,NAME,MSGLEVEL=1 






//STEP1 EXEC ASMFCLG . 






//ASM.SYSUT1 DD UNIT=SYSDA 






//ASM.SYSUT2 DD UNIT=SYSDA 






//ASM.SYSUT3 DD UNI T=SYSDA 






//ASM.SYSGO DD UNIT=SYSDA 






//ASM.SYSIN DD * 












SOURCE DECK 












/" 






//GO. ANSWERS DD SYSOUT=A 




























































> 
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IBM System/360 Assembler Coding Form 



program PROBLEM 11 SOLUTION 


PUNCHING INSTRUCTIONS 


PAGE 1 OF 1 




GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 


Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40 45 50 55 60 65 71 


//PUNCHALL JOB 




//ST1 EXEC PGM=IEBPTPCH 




//SYSPRINT DD SYSOUT=A 




//SYSUT1 DD DSNAME=SYS1.SAMPLIB.DISP=0LD 




//SYSUT2 DD UNIT=SYSCP 




//SYSTN DD * 








PUNCH TYPORG=PO,MAXFLDS=l 




RECORD FIELD=(80, 1,, 1) 








/** 

































































IBM 



IBM System/360 Assembler Coding Form 



PROGRAM 


PROBLEM 12 SOLUTION 




PUNCHING INSTRUCTIONS 


PAGE 1 OF 1 


— 






GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















STATEMENT 


Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40, 45 50 55 60 65 71 


//PUNCHONE JOB 




//ST EPPE EXEC PGM=IEBPTPCH 




//SYSPRINT DD SYSOUT=A 




//SYSUT1 DD DISP=0LD.DSNAME=SYS1.SAMPLIB 




//SYSUT2 DD UNIT=SYSCP 




7/SYSIN DD * 








PUNCH TYPORG=PO r MAXFLDS= 1 r MAXNAMEr 1 




RECORD FIELD=C80. 1.. 1") 




MEMBER NAMErf lEATPLOfn 








/" 
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IBM System/360 Assembler Coding Form 



PROGRAM PROBLEM 1* 


PUNCHING INSTRUCTIONS 


PAGE 1 OF 1 




GRAPHIC 
















CARD ELECTRO NUMBER 


PROGRAMMER 


DATE 


PUNCH 

















o 



STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40 45 50 55 60 65 71 




//MUMU JOB 






//SI EXEC COBECLG 






//COB.SYSIN DD * 












COBOL SOURCE DECK 












/" 






//LKED.ZEUS DD DSNAME=SYS 1 . USERLI B, DI SP=OLD 












//LKED.SYSIN DD * 






OVERLAY PT109 






INCLUDE ZEUS(SUBA) 






OVERLAY PT109 






INCLUDE ZEUS(SUBB) 






OVERLAY PT109 






INCLUDE ZEUS(SUBJ) 






/" 
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IBM System/360 Assembler Coding Form 



program PROBLEM l*f SOLUTION 


PUNCHING INSTRUCTIONS 


PAGE 1 OF 1 




__ - 


GRAPHIC 
















CARD ELECTRO NUMBER 




PROGRAMMER 


OATE 


PUNCH 

















STATEMENT 




Identification- 
Sequence 
73 80 


Name Operation Operand Comments 
1 8 10 14 16 20 25 30 35 40, 45 50 55 60 65 7l" 




//JUJU JOB 






//SI EXEC COBECLG 






//COB.SYSIN DD >' 












COBOL SOURCE DECK 












/* 






//LKED.THOR DD DSNAME=SYS 1 .USERLI B, DI SP=OLD 






//LKED.SYSIN DD * 






INCLUDE THORCSUBA,SUBB,SUBJ) 






LIBRARY CSUBC) 






/** 
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OS/360 JOB CONTROL LANGUAGE REFERENCE CHART 



The Following chart is provided for use as a reference during preparation of DD Statements 



Doefe data set follow 
as pfart of input 
stream or take form 
of a dummy? 



DUMMY 

DATA 

DDNAME : 




ata set follows in input stream) 

(Data set is a dummy) 
(D/S contains JCL (//) cards 
(Dummy D/S assumes 
characteristics of real) 



Is dita set to be 
referred to by 
DSNAME? 



NO - The OS assigns a unique name 

YES - Use one of the forms (DSNAME=) below 



Does DSNAME refer to: 
1 . Gen . data group 

2. PDS 

3. Fjully qual . name 



DSNAME= 



dsname 

dsname (element) 



Doe<j DSNAME refer to 
another data set 



DSNAME= 



*.ddname - same step 

*.stepname. ddname - same job 

*.stepname. procstep. ddname -same job 



Want the OS to make 
the name unique to 
this job 



DSNAME^ 



&name 

&name (element) 



OS puts the fob name 
in front of the name 
to make it unique to 
this fob. 



Is the DCB to be 
completed by DD cards 



NO - The DCB must be assembled complete by 
the user or it will be filled in from D/S 
label. 

YES - Use one of the forms (DCB=) below. 



DCB parameters to come 
from another data set 



DCB= 



dsname 

* .ddname 

* .stepname .ddname 
*.stepname. procstep. 

^ ddname 



(Subparameter 
list of key words 
that will override 
those from the 
other D/S 



DCB parameters to 
come; from subparameter 
list 



DCB= 



Subparameter list of appropriate 
keywords as defined by each access 
method's DCB 



Does this D/S want 
Channel Affinity with 
-or- Channel Separa- 
tion from other D/S 's 



AFF= 
SEP= 



ddname 



(List of ddnames) 



- User's D/S can share chan- 
nel with "ddname" 

- User's D/S must be a chan- 
nel other than "ddnames" 



Are Volumes to be 
identified by this 
DD card? 



NO - Volume ID for this D/S must have] 
been passed or cataloged. ' 

YES - Use one of the forms (VOLUME=) below 
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OS/360 JOB Control Language Reference Chart 



Volumes are private 
and already defined 
not to be further 
defined here. 



VOLUME= 
VOLUME^ 



SER- (List of volume serial no.'s) 

'dsname 
REF= *. ddname 

* .stepname .ddname 

. * . stepname . procstep . ddname __ 




Volumes are to be 
further defined 
here 



VOLUME- 



Usage 

([private] 



Mounting Sequence No. of Vols. 



Mounting 
[RETAIN] 



(I 



|SER= (See above)] 
[REF= (See above)J 



Volume 

Seq. 

No. 



Volume] 
Count J 



) 



Volume is to 
remain mounted 
between fobs. 



1 . Use a permanent resident device or SYSRES 

2. Reserve volume with "MOUNT" command. 

3. Use DISP=(NEW,DELETE) and do not specif/ 
volume serial number. 



Is D/S label info, 
to be given? 



NO - OS assumes standard labels and 

verifies mounting . 
YES - If the retention period is not 

specified, OS assumes 0. Form is 

shown below . 



Positional parameters 
may be ignored. 



LABEL= 



Sequence 


r Type _ 


File 




fNL 






Seq . 




i SL 


- 




LNo.J 






NSL 
.SUL> 







Time Period 

JEXPDT =yyddd 
I RETPD=xxxx 



Is the UNIT to be 
described by this 
DD card? 



NO - The unit description must come from: 

1 . This D/S is OLD and was PASSED or 
cataloged, OR 

2. This D/S's "VOLUME-" parameter must 
refer back, OR 

3. This D/S uses SPACE parameters 
"SPLIT" or "SUBALLOC". 

YES - Use one of the forms (UNIT=) below. 



D/S may share device 
with another D/S - 
this step only . 



UNIT= 



AFF= ddname 



Output D/S may share 
pool of tape drives 



UNIT = 



Which ddname 
(POOL, poolname, 



Add. Units 



1 
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OS/360 JOB Control Language Reference Chart 



Define device type, 
no. of units, mount 
instructions 



UNIT- 



Device ^ 



Mount DASD Separation 

(name, ITnI] [DEFER] [SEP- (List of ddnames)] 



Is UNIT a Direct 
Access device? 



NO - Ignore the SPACE, SPLIT, & SUBALLOC 

parameters. 
YES - Must be one of the forms below if the 

D/S is new . 



User to handle space 
allocation by absolute 
location . 



SPACED 



(ABSTR, (Qnty, beginning addr, 



directory 
quantity_ 



)) 



OS to handle space 
allocation auto- 
matically 



SPACED 



TRK 
CYL 
^avg. rec. Igth . 



( 



fpn. ,["sec. 1, Tdir l\ 
-A qnty. qnty.J Lqnty J J, |_RLSEJ , 



MXIG 
ALX 
(CONTIGJ _ 



, [ROUND] 



D/S to use split 
cylinders 



SPLIT- 



("■ 



CYL 

avg .rec. Igth 



pri . 

L q^y. 



sec. 
Lqnty 



Subal locate space from 
another D/S . 



SUBALLOC- 



TRK 
CYL 



,/ pri. 



sec. 



avg .rec. Igth J \qnty . , [_ qnty . 

ddname 
{ stepname .ddname 
stepname . procstep . ddname 



dir. 
_ qnty . 



y 



Disposition of D/S at 
EOJ or EOS to be 
stated on DD card? 



NO - OS assumes NEW and DELETE. If the 2nd 
parameter is blank, no change of status 
will be made. 

YES - See below . 



Position the device 
after the last record 
in the D/S 



DISP- 



(MOD 



DELETE 
KEEP 
< PASS 
CATALG 
^UNCATALGJ 



f MOD indicates that 
D/S exists but is to 
be added to — not read 
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OS/360 JOB Control Language Reference Chart 



Save D/S between 
job steps 



DISP= 



[NEW 1 
U OLD \ , PASS) 
[MOD J 



- Last step should use 
DELETE param . to 
dispose of D/S . Job 
assumes DELETE at 
EOJ regardless . 



Save D/S between 
Jobs. 



DISP: 



(new! 


r 


OLD 


^ ,< 


^MOD 


I 



KEEP 
CATALG 



r CATALG implies KEEP 
D/S will exist until 
DELETED. KEEP 
causes the volume to 
become a private 
volume . 



D/S is to be cataloged 
or removed from the 
catalog . 



DISP= 



NEW 
OLD 
[MOD J 



>,fCATALG 
\UNCATLG 



- Catalog structure must 
exist prior to CATALG, 
UNCATLG does not 
DELETE the D/S; it stil 
exists in VTOC . 
DELETE does uncata- 
log. 



Output D/S to be put 
onto a SYSOUT class 
device . 



SYSOUT 



(classname, [progname] , [xxxx] 



- No (DISP=) 
needed. D/S 
will be 
deleted . 
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APPENDIX 2 
Job-Shop Example Index 

Page 
Section I: 1) How to override cataloged procedures 4.4.75 

2) How to use the DDNAME parameter 4.4.81 

3) IBM-Supplied Procedures 4.4.85 
NOTE: Excerpts from Systems Programmers Guide (C28-6550) 
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1) HOW TO OVERRIDE CATALOGED PROCEDURES 

You can override any parameters in a cataloged procedure, except the PGM=progname 
parameter in the EXEC statement; you can also add parameters or statements not specified 
in the procedure. When you override or add to a cataloged procedure, the overriding 
parameters or statements apply only during one execution. 

HOW TO OVERRIDE AND ADD DD STATEMENTS 

You override or add to a DD statement by using a DD statement whose name is comprised 
of the procedure step-name qualified by the ddname of the DD statement you are 
Overriding. 

There are a few rules that you must follow when overriding or adding a DD statement 
within a step in a procedure. 

• Overriding DD statements must be in the same order in the input stream as they are 
in the cataloged procedure. 

, • DD statements to be added must follow overriding DD statements. 

• A DD statement with an * in the operand field terminates processing of subsequent 
DD statements in both the procedure and the input stream. 

There are also a few special cases that you should keep in mind when overriding a DD 
statement. 

• All parameters are overriden in their entirety, except the DCB parameter. Within 
the DCB parameter, you can override only individual subparameters. 

• To nullify a keyword parameter (except the DCB parameter), you write, in the 
overriding DD statement, the keyword and an equal sign followed by a comma. 
For example, to nullify the use of the UNIT parameter, specify UNIT=, in the 
overriding DD statement. 

• You can nullify a parameter by specifying a mutually exclusive parameter. For 
example, you can nullify the SPACE parameter by specifying the SPLIT parameter 
in the overriding DD statement. 

• You can nullify the DUMMY parameter by omitting it and specifying the DSNAME 
parameter in the overriding DD statement. 

EXAMPLES OF OVERRIDING AND ADDING DD STATEMENTS 

This section contains six examples of overriding and adding DD statements. The 
DDNAME parameter is not used in these examples, although this parameter is 
especially useful in cataloged procedures. The use of the DDNAME parameter is 
described in detail later in this chapter. 
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Example 1: The following example shows how to override DD statements. If you 
override more than one DD statement, the overriding DD statements must be in the 



same 



order as they are in the cataloged procedure. 



The Cataloged Procedure (PROC1) 



//STEP1 EXEC 

//DDNAME1 DD 
//DDNAME2 DD 



PGM=progname 

(any parameters except * or DDNAME) 

(any parameters except * or DDNAME) 



The Input Stream 



//JOB1 JOB 

//STEPA EXEC 

//STEP1.DDNAME1 DD 

//STEP1.DDNAME2 DD 



1234,J.DUBON 

PROC1 

(new parameters replacing those in the procedure) 

(new parameters replacing those in the procedure) 



Example 2: The following example shows how to override DD statements and change 
the last statement to a DD * statement. If you change any DD statement other than the 
last one to DD*, all processing of DD statements would be terminated. Any subsequent 
DD statements would be read as part of the data set specified by the DD * statement. 



The Cataloged Procedure (PROC1) 



//STEP1 EXEC 

//DDNAME 1 DD 
//DDNAME2 DD 



PGM=progname 

(any parameters except * or DDNAME) 

(any parameters except * or DDNAME) 



The Input Stream 



//JOB2 JOB 1234,J.DUBON 

//STEPA EXEC PROC1 

//STEP 1 . DDNAME 1 DD (new parameters replacing those in the procedure) 

//STEP1.DDNAME2 DD 



Example 3: The following example shows how to add DD statements. If you add more 
than one DD statement, only the last statement can be a DD * statement. 



The Cataloged Procedure (PROC1) 



//STEP1 EXEC PGM=progname 

//DDNAME! DD (any parameters except * or DDNAME) 

//DDNAME2 DD (any parameters except * or DDNAME) 
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The Input Stream 



//JOB3 JOB 1234,J.DUBON 

//STEPA EXEC PROC1 

//STEP1.DDNAME3 DD (any parameters except *) 

//STEP! . DDNAME4 DD (* or any other parameters) 



Example 4: The following example shows how to override DD statements and add DD 
statements. Overriding statements must be in the same order as they appear in the 
prpcedure and must precede those statements being added. 



The Cataloged Procedure (PROC1) 



//STEP1 EXEC PGM=progname 

//DDNAME1 DD (any parameters except * or DDNAME) 

//DDNAME2 DD (any parameters except * or DDNAME) 



The Input Stream 

1 


//JOB4 


JOB 


1234J.DUBON 


//STEPA 


EXEC 


PROC1 


//STEP1.DDNAME1 


DD 


(new parameters replacing those in the procedure) 


//STEP1.DDNAME3 


DD 


(any parameters except *) 


//STEP1.DDNAME4 


DD 


(* or any other parameters) 



Exbmple 5: The following example shows how to concatenate a data set with the data 
set defined by the last DD statement in the cataloged procedure. 



The Cataloged Procedure (PROC1) 



//STEP1 EXEC 

//DDNAME 1 DD 
//DDNAME2 DD 



PGM=progname 

(any parameters except * or DDNAME) 

(any parameters except * or DDNAME) 



The Input Stream 



//JOB5 JOB 1234J.DUBON 

//STEPA EXEC PROC1 

// DD (* or parameters defining a data set) 



Another way of performing the same function is to use the following cards in the input 
stream. 
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The Input Stream 



//JOB5 


JOB 


1234,J.DUBON 


//STEPA 


EXEC 


PROC1 


//STEP1.DDNAME2 


DD 


(blank operand field) 


// 


DD 


(* or parameters defining a data set) 



When you use a blank operand field, no modifications are made to the named DD state- 
ment. In the above example, the statement whose name is DDNAME2 could have been 
overriden; the data set defined by the unnamed DD statement would then be concatenated 
to the data set that was redefined by overriding. 

Example 6: The following example shows how to concatenate a data set not in the input 
stream with any data set defined in a procedure. 



The Cataloged Procedure (PROC1) 



//STEP1 EXEC 

//DDNAME1 DD 
//DDNAME2 DD 



PGM=progname 

(any parameters except 

(any parameters except 



* or DDNAME) 

* or DDNAME) 



The Input Stream 



//JOB6 

//STEPA 

//STEP1.DDNAME1 

// 



JOB 1234,J.DUBON 

EXEC PROC1 

DD (blank operand field) 

DD (parameters defining a data set) 



HOW TO OVERRIDE AND ADD TO EXEC STATEMENTS 

You override or add to an EXEC statement in one of two ways: 

• Specify, in the operand field of the EXEC statement calling the procedure, the 
keyword, the procedure step-name, and the parameters. If you are overriding or 
adding to a multi-step procedure, parameters in the calling EXEC statement must be 
specified step by step i.e., the parameters for one step must be specified before 
those of the next step. 

• Specify only the keywords and parameters in the operand field of the statement 
calling the procedure. If you call a multi-step procedure, the specified parameters 
(with the exception PARM) apply to all steps in the procedure. The PARM key- 
word overrides the first EXEC statement and nullifies any subsequent PARM keywords, 
The TIME keyword overrides all TIME keywords in the procedure, and specifies the 
time allotted for the entire procedure. The COND and ACCT keywords apply to all 
steps in the procedure. 
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EXAMPLES OF OVERRIDING AND ADDING TO THE EXEC STATEMENT 

This section contains examples of overriding and adding to the EXEC statement. 

Example 1: The following example shows how to override a parameter in the EXEC 
statement. The COND parameter in the procedure specifies that this step is to be by- 
passed if 200 is greater that the return code of any previous step. The input stream 
statements override the COND parameter so that the step is to be bypassed if 300 is 
greater than the return code of any previous step. 



The Cataloged Procedure (PROC2) 



//STEP1 EXEC PGM=progname, COND=(200,GT) 
//DD1 DD (any parameters except * or DDNAME) 

//DD2 DD (any parameters except * or DDNAME) 



The Input Stream 



//J OBI JOB 

//STEPA EXEC 

//DDNAME 1 DD 

//DDNAME2 DD 

//STEPB EXEC 



1234,J.DUBON 

PGM=progname 

(any parameters except * or DDNAME) 

(any parameters except * or DDNAME) 

PROC2,COND.STEP1=(300,GT) 



Example 2: The following example shows how to override a parameter in the EXEC 
statement, and how to add a new parameter. 



The Cataloged Procedure (PROC2) 



//STEP! EXEC PGM=progname, PARM=(NOLOAD, DECK) 
//DD1 DD (any parameters except * or DDNAME) 

//DD2 DD (any parameters except * or DDNAME) 



The Input Stream 



//JOB2 JOB 
//STEPA EXEC 



1234,J.DUBON 
PROC2,PARM.STEPl=(LOAD,NODECK),ACCT=(1234) 



Example 3: The following example shows how to override individual parameters in each 
EXEC statement in a multi-step procedure. All overriding parameters for one step of the 
procedure must be specified before those for the next step are specified. 



33 



The Cataloged 


Proced 


ure (PROC2) 


//STEP1 


EXEC 


PGM=progname / ACCT=(1234),PARM=(XREF,UST) 


//DDNAME1 


DD 


(any parameters except * or DDNAME) 


//DDNAME2 


DD 


(any parameters except * or DDNAME) 


//STEP2 


EXEC 


PGM=progname,ACCT=(1234),COND=(100,LT,STEPl) 


//DD1 


DD 


(any parameters except * or DDNAME) 


//DD2 


DD 


(any parameters except * or DDNAME) 



The Input Stream 



//JOB3 JOB 1234,J.DUBON 

//STEPA EXEC PROC2,PARM.STEP1=,COND.STEP2=(200,LT,STEP1) 



Example 4: The following example shows how to override parameters in all EXEC state- 
ments in a multi-job procedure. The COND keyword applies to all steps in the procedure; 
the PARM keyword is added to the first step of the procedure, and nullifies subsequent 
PARM keywords; the ACCT keyword applie-s to all steps in the procedure. 



The Catal 


oged Procedure (PROC2) 


//STEP! 


EXEC 


PGM=progname 


//DD1 


DD 


(any parameters except * and DDNAME) 


//DD2 


DD 


(any parameters except * and DDNAME) 


//STEP2 


EXEC 


PGM=progname,PARM=(XREF,LIST / LET) / COND=(5 / LT / STEPl) 


//DD3 


DD 


(any parameters except * and DDNAME) 


//DD2 


DD 


(any parameters except * and DDNAME) 


//STEP3 


EXEC 


PGM=progname, COND=((5, LT, STEP!), (5, LT, STEP2)) 


//DD4 


DD 


(any parameters except * and DDNAME) 


//DD5 


DD 


(any parameters except * and DDNAME) 


//DD2 


DD 


(any parameters except * and DDNAME) 



The Input Stream 



//JOB4 JOB 1234,J.DUBON 

//STEPA EXEC PROC2,PARM=DECK,COND=(3,LT),ACCT=(12345678,DEPT.123, 

PRO J. 456) 
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2) HPW TO USE THE DDNAME PARAMETER 

You use the DDNAME parameter to define a dummy data set that can assume the 
characteristics of an actual data set, defined by a subsequent DD statement within the 
step. If a matching DD statement is found, its characteristics, with the exception of its 
ddname, replace those of the statement using the DDNAME parameter. If a matching 
DD statement is not found within the step, the statement using the DDNAME parameter 
remains a dummy. 

This section contains examples showing the use of the DDNAME parameter with cataloged 
procedures. 

The rules that you must adhere to when using the DDNAME parameter are as follows: 

• You cannot use a backward reference (e.g., *. ddname) to a DD statement referred 
to be a DDNAME parameter because the statement that you refer to loses its 
identity. 

• You can use a backward reference to a statement containing a DDNAME parameter, 
but only after the statement to which the DDNAME parameter refers has been 
encountered. If you use a backward reference before the dummy data set (defined 
by DDNAME) has been given real characteristics, these real characteristics will 
not be transferred to the DD statement that contains the backward reference. For 
example, if you use DCB==* . ddname (where ddname is the name of a statement 
containing an unresolved DDNAME parameter), the DCB fields that are transferred 
are blank. 

• You can place unnamed DD statements after a statement containing the DDNAME 
parameter (this indicates concatenation), but you cannot place unnamed DD 
statements after a statement referred to be a DDNAME parameter. 

• You can use the DDNAME parameter five times in a step, but each DDNAME 
parameter must refer to a different statement. 

• You cannot use the DDNAME parameter in a statement named JOBLIB. 

When using the DDNAME parameter, you should also keep the following in mind. 

• The name of the DD statement that you refer to does not replace the name of the 
referencing statement. 

• If you override a statement that contains the DDNAME parameter, it is nullified. 

• If you override with a statement that contains the DDNAME parameter, all 
parameters in the overridden statement are nullified. 
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The following DD statements: 

//SI EXEC PGM=progname 

//Dl DD DDNAME=D3 

//D2 DD (parameters X, Y, Z) 

//D3 DD (parameters 11,1,7) 



will result in the same data definition produced by the following statements. 



//SI EXEC PGM=progname 

//Dl DD (parameters U,T,V) 

//D2 DD (parameters X, Y, Z) 



Example 1: The following example shows how to override the first DD statement in a 
cataloged procedure with a DD * statement, and allow subsequent statements to be 
processed. Without the DDNAME parameter, replacing the first DD statement with a 
DD * statement would terminate processing of subsequent statements. 



The Cataloged Procedures (PROC3) 



//STEP] 


EXEC 


PGM=progname 


//DD1 


DD 


(any parameters except *) 


//DD2 


DD 


(any parameters except *) 



The Input Stream 



//JOB1 JOB 1234,J.DUBON 

//SI EXEC PROC3 

//STEP1.DD1 DD DDNAME=D1 

//Dl DD 



The STEP1.DD1 statement overrides the DD1 statement; the DD2 statement is processed; 
then the Dl statement is processed. 

Example 2: The following example shows how to override the first DD statement in a 
cataloged procedure with a DD * statement and add a DD statement. 



The Cataloged Procedures (PROC3) 



//STEP1 EXEC PGM=progname 

//DD1 DD (any parameters except * ) 

//DD2 DD (any parameters except * ) 
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The Input Stream 


//JOB2 


JOB 


1234,J.DUBON 


//si 


EXEC 


PROC3 


//STEP1.DD1 


DD 


DDNAME=DD4 


//DD3 


DD 


(any parameters except * ) 


//DD4 


DD 


* 



The DD4 statement effectively overrides the DD1 statement, after the DD2 statement 
has been processed and the DD3 statement has been added. 

Example 3: The following example shows how to concatenate a data set in the input 
stream with a data set defined by a DD statement in a cataloged procedure. 



The Cataloged Procedures (PROC3) 



//STEP1 EXEC PGM=progname 

//DD1 DD (any parameters except * ) 

//DD2 DD (any parameters except * ) 



The Input Stream 


//JOB3 


JOB 


1234,J.DUBON 


//SI 


EXEC 


PROC3 


//STEP1.DD1 


DD 


(blank operand field) 


// 


DD 


DDNAME=DD3 


//DD3 


DD 


* 



The data set in the input stream is concatenated to the data set defined by the DD1 
statement after the DD2 statement has been processed. 

fxample 4: The following example shows how to concatenate a data set in the input 
Stream with a data set defined by a DD statement in a cataloged procedure and add a 
DD statement, 



The Cataloged Procedures (PROC3) 



//STEP1 EXEC PGM=progname 

//DD1 DD (any parameters except * ) 

//DD2 DD (any parameters except * ) 
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The Input Stream 


//JOB4 


JOB 


1234J.DUBON 


//SI 


EXEC 


PROC3 


//STEP1.DD2 


DD 


(blank operand field) 


// 


DD 


DDNAME=DD4 


//DD3 


DD 


(any parameters except *) 


//DD4 


DD 


* 



The data set in the input stream is concatenated to the data set defined by the DD2 
statement after the DD3 statement has been added. 

Example 5: The use of the DDNAME parameter shown in Examples 3 and 4 requires 
more DD statements in the input stream than would be required if the DDNAME 
parameter were contained within the catalog procedure. If procedure PROC3 is 
modified as follows: 



The Cataloged Procedures (PROC3) 



//STEP1 


EXEC 


//DD1 


DD 


// 


DD 


//DD2 


DD 


// 


DD 



PGM=progname 

(any parameters except * ) 

DDNAME=DD3 

(any parameters except * ) 

DDNAME=DD4 



The data set in the input stream can then be concatenated with the data set defined by 
the DD1 statement by using the following statements: 



The Input Stream 



//JOB5 JOB 1234J.DUBON 

//SI EXEC PROC3 

//DD3 DD 



Because there isn't a statement named DD4, the data set defined by the DD2 statement 
will be concatenated with a dummy data set. 



38 



3) IBM - SUPPLIED PROCEDURES 

IBM distributes cataloged procedures with the Operating System. However, you need 
not incorporate these procedures when you generate a system. 

The following text describes the conventions used in IBM-supplied procedures. 

Procedure Naming Conv entions 

Procedure names begin with the abbreviated name of the processor program that is to 
compile source statements or whose output is to be linkage edited. The names assigned 
to each processor are as follows: 

Assembler ASM 

COBOL COB 

FORTRAN FORT 

Linkage Editor LKED 

Sort SORT 

Testran Editor TTED 

If applicable, a design-point indicator follows the processor's abbreviated name. 

1 . The Linkage Editor is not followed by a design-point indicator because all IBM- 
supplied procedures invoke the largest linkage editor that you select during the 
system generation procedure. This linkage editor is given the alias IEWL during the 
system generation process. This name is included in all procedures that invoke the 
Linkage Editor. 

2. Both the Sort and the Testran Editor have only one design point; neither name is 
followed by a design-point indicator. 

The processor's abbreviated name and, if applicable, design point are followed by C, 
L, G or any combination of them. The "C" indicates compile, the "L" linkage edit, 
and the "G" go (i.e., execute). Hence, procedure ASMEC is a single step procedure 
which compiles a program using the Assembler E processor; FORTECLG is a three step 
procedure, wherein the first step compiles a program using FORTRAN E, the second step 
lirikage edits the output of the first step, and the third step executes the output of the 
linkage editor. 

Step Names in Procedures 

In a cataloged procedure, the step name is the same as the abbreviated processor name. 
The step that executes a compiled and linkage edited program is named GO. 

For example, in the procedure named COBECLG, the first step is named COB; the second 
step is named LKED, and the third step is named GO. 
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Unit Names in Procedures 

The three unit names used in IBM-supplied cataloged procedures are as follows: 

SYSSQ any magnetic tape or direct-access device 

SYSDA any direct-access device 

SYSCP any card punch 

A pool of units must be assigned to these unit names during the system generation 
procedure. For example, you may elect to have only 231 1 Disk Storage Drives assigned 
to the SYSSQ name. Then again, you may assign both 2400 Magnetic Tape Units and 
2311 Disk Storage Drives to the SYSSQ name. Although you can assign devices to these 
classes, you cannot control device selection. 

Tapes that are assigned to SYSSQ should have standard labels. If your tapes are 
unlabeled and you are using the IBM-supplied procedures, you should modify the 
procedures accordingly. 

Data Set Names in Procedures 

When DSNAME=&name is used in a DD statement, the specified data set is given a 
unique name by the scheduler, and is assumed to be a temporary data set which will be 
deleted when the job completes. If you want to keep the data set, you must override the 
DD statement with a permanent data set name and appropriate COND parameters. 

IBM-Supplied Procedures 



Procedures ASMEC/ASMFC: These are single step procedures to assemble a symbolic 
program and are identical, except that procedure ASMFC specifies Assembler F 
(IEUASM) in the EXEC statement. Procedure ASMEC is shown here. 



//ASM 


EXEC 


PGM=IETASM 


00020000 


//SYS LIB 


DD 


DSNAME=SYS1 .MACLIB, DISP-OLD 


0004000.0 


//SYSUT1 


DD 


UNIT=SYSSQ,SPACE=(1700, (400,50)) 


00060000 


//SYSUT2 


DD 


UNIT=SYSSQ,SPACE=(1700, (400,50)) 


00080000 


//SYSUT3 


DD 


UNIT=(SYSSQ,SEP=(SYSUT2,SYSUT1,SYSLIB)), 


X00 100000 


// 




SPACE=(1 700, (400,50)) 


00120000 


//SYSPRINT 


DD 


SYSOUT=A 


00140000 


//SYSPUNCH 


DD 


UNIT=SYSCP 


00160000 



You must supply the following DD statement in the input stream. 

//ASM.SYSIN DD (* or parameters defining the input data set). 

If you use the DD * statement, you must follow the source statements with the Delimiter 
statement. 

Note: For a more detailed description of the use of the Assembler E or F procedures, 
refer to the publication IBM System/360 Operating System: Assembler (E,F) Programmer's 
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Guide, Form C28-6595. 

Procedures ASMECL/ASMFCL: These are two step procedures to assemble a program 
and linkage edit the output of the assembler and are identical, except that procedure 
ASMFCL specifies Assembler F (IEUASM) in the EXEC statement for the assembly step. 
Procedure ASMECL is shown here. 



//ASM 


EXEC 


PGM=IETASM 


00020000 


//SYS LIB 


DD 


DSNAME=SYS1 .MACLIB, DISP=OLD 


00040000 


//SYSUT1 


DD 


UNIT=SYSSQ,SPACE=(1700, (400,50)) 


00060000 


//SYSUT2 


DD 


UNIT=SYSSQ,SPACE=(1700, (400,50)) 


00080000 


//SYSUT3 


DD 


UNIT=(SYSSQ,SEP=(SYSUT2, SYSUTl, SYSLIB)), 


X00 100000 


// 




SPACE=(1 700, (400,50)) 


00120000 


//SYSPRINT 


DD 


SYSOUT=A 


00140000 


//SYSPUNCH 


DD 


DSNAME=&LOADSET, UNIT=SYSSQ, 


X00 160000 


// 




SPACE=(80, (200,50)), DISP=(MOD, PASS) 


00180000 


//LKED 


EXEC 


PGM=I EWL, PARM=(XREF, LIST, NCAL) 


00200000 


//SYS LIN 


DD 


DSNAME=&LOADSET, DISP=(OLD, DELETE) 


00220000 


// 


DD 


DDNAME=SYSIN 


00240000 


//SYSLMOD 


DD 


DSNAME=&TEMP(PDS),UNIT=SYSDA, 


X00260000 


*.i // 




SPACE=(1024,(50,20,1)) 




//SYSUTl 


DD 


UNIT=(SYSDA,SEP=(SYSIN, SYSLMOD)), 


X00280000 


// 




SPACE=(1024, (50,20)) 


00300000 


//SYSPRINT 


DD 


SYSOUT=A 


00320000 



You must supply the following DD statement in the input stream. 

//ASM.SYSIN DD (* or parameters defining the input data set) 

If you want to linkage edit previously compiled modules with the output of the current 
compilation, you must also supply the following DD statement. 

//LKED.SYSIN DD (* or parameters defining the input data set) 



If you use the DD * statement, in either of the above cases, you must follow the input 
data with the Delimiter statement. 

Procedures ASMECLG/ASMFCLG; These are three step procedures to assemble, 
linkage edit, and execute the compiled program and are identical, except that 
procedure ASMFCLG specifies Assembler F (IEUASM) in the EXEC statement for the 
assembly step. Procedure ASMECLG is shown here. 
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//ASM 


EXEC 


PGM=IETASM 


00020000 


//SYSLIB 


DD 


DSNAME=SYSl.MACUB,DISP=OLD 


00040000 


//SYSUT1 


DD 


UNIT=SYSSQ,SPACE=(1700, (400,50)) 


00060000 


//SYSUT2 


DD 


UNIT=SYSSQ,SPACE=(1700, (400,50)) 


00080000 


//SYSUT3 


DD 


UNIT=(SYSSQ,SEP=(SYSUT2,SYSUT1, 


X00 100000 


// 




SYSLIB)), SPACE=(1700, (400,50)) 


00120000 


//SYSPRINT 


DD 


SYSOUT=A 


00140000 


//SYS PUNCH 


DD 


DSNAME=&LOADSET,UNIT=SYSSQ, 


X00 160000 


// 




SPACE=(80, (200,50)), DISP=(MOD, PASS), 


00180000 


//LKED 


EXEC 


PGM=IEWL, PARM=(XREF, LET, LIST, NCAL) 


00200000 


//SYS LIN 


DD 


DSNAME=&LOADSET, DISP=(OLD, DELETE) 


00220000 


// 


DD 


DDNAME=SYSIN 


00240000 


//SYSLMOD 


DD 


DSNAME=&GOSET(GO),UNIT=SYSDA, 


X00260000 


// 




SPACE=(1024,(50,20,1)),DISP=(MOD,PASS) 


00280000 


//SYSUT1 


DD 


UNIT=(SYSDA,SEP=(SYSLIN, SYSLMOD)), 


X0O300000 


// 




SPACE=(1024, (50,20)) 


00320000 


//SYSPRINT 


DD 


SYSOUT=A 


00340000 


//GO 


EXEC 


PGM=*. LKED. SYSLMOD 


00360000 



You must supply the following DD statement in the input stream. 

//ASM.SYSIN DD (* or parameters defining the input data set) 

If a problem program refers to data sets, you must supply a DD statement defining each 
data set. If more than one data set is referred to, and one data set is in the input stream, 
only the last statement can be a DD * statement. The format of the DD statements is as 
follows: 

//GO.ddname DD (* or parameters defining the data set) 

If you use the DD * statement, you must follow the input data with the Delimiter 
statement. 



//FORT 


EXEC 


PGM=IEJFAA0 




00020000 


//SYSPRINT 


DD 


SYSOUT=A 




00040000 


//SYSPUNCH 


DD 


UNIT=SYSCP 




00060000 


//SYSUT1 


DD 


UNIT=SYSSQ,SEP=SYSPUNCH, 




X00080000 


// 




SPACE=(TRK,(30,10)) 






//SYSUT2 


DD 


UNIT=SYSSQ,SEP=SYSUT1, 




X00 100000 


// 




SPACE=(TRK,(30,10)) 






//SYSLIN 


DD 


DSNAME=&LOADSET,DISP=(MOD,PASS), 


100120000 


// 




UNIT=SYSSQ, 






// 




SEP=SYSPUNCH,SPACE=(TRK,(30, 


10)) 


00140000 



You must supply the following DD statement in the input stream. 

//FORT.SYSIN DD (* or parameters defining an input data set) 
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If several FORTRAN source programs are batched for compilation, you can use only the 
DD * statement. When you use the DD * statement, you must follow the input data 
with the Delimiter statement. 

Nbte: For a more detailed description of the use of the FORTRAN E procedures, refer 



to 



the publication IBM System/360 Operating System; FORTRAN (E) Programmer's 
Guide, Form C28-6603. 

Procedure FORTECLG: A three step procedure to do a compile, load, go using the 



FORTRAN E compiler. 



//FORT 


EXEC 


PGM=IEJFAAAO 


00020000 


//SYSPRINT 


DD 


SYSOUT=A 


00040000 


//SYSPUNCH 


DD 


UNIT=SYSCP 


00060000 


//SYSUT1 


DD 


UNIT=SYSSQ,SEP=SYSPUNCH, 


00080000 


// 




SPACE=(TRK,(30,10)) 




//SYSUT2 


DD 


UNIT=SYSSQ, SEP=SYSUT1 , 


00100000 


// 




SPACE=(TRK,(30,10)) 




//SYS LIN 


DD 


DSNAME=&LOADSET, DISP=(MOD, PASS), 


XI 00 120000 


// 




UNIT=SYSSQ, 


X 


// 




SEP=SYSPUNCH,SPACE=(TRK,(30, 10)) 


00140000 


//LKED 


EXEC 


PGM=IEWL,PARM=(XREF, LIST, LET), 


X00 160000 




// 




COND=(5,LT,FORT) 






//SYSLIB 


DD 


DSNAME=SYS1 . FORTLIB, DISP=OLD 


00180000 




//SYSLMOD 


DD 


DSNAME= GOSET(MAIN),DISP=(NEW,PASS), 


X00200000 


// 




UNIT=SYSDA,SPACE=(1024, (50,20,1)) 


00220000 


//SYSUT1 


DD 


UNIT=SYSDA,SEP=(SYSLMOD, SYSLIB), 


X00240000 


// 




SPACE-(1024, (30,20)) 




//SYSPRINT 


DD 


SYSOUT=A 


00260000 


//SYS LIN 


DD 


DSNAME=*. FORT. SYSLIN, DISP=(OLD, DELETE) 


r 100280000 


// 




DCB=KRECFM=F,BLKSIZE=80), 


00300000 


// 




UNIT=SYSSQ 




// 


DD 


DDNAME=SYSIN 


00320000 


//GO 


EXEC 


PGM=*. LKED. SYSLMOD, 


X00340000 


// 




COND=((5,LT,FORT),(5,LT,LKED)) 




//FT02F001 


DD 


UNIT=SYSCP 


00360000 


//FT03F001 


DD 


SYSOUT-A 


00380000 


//FT01F001 


DD 


DDNAME=SYSIN 


00400000 



You must supply the following DD statement in the input stream. 

//FORT.SYSIN DD (* or parameters defining an input data set) 

If several FORTRAN source programs are batched for compilation, you can use only the 
DD * statement. For a more detailed description, refer to the publication IBM System/ 
360 Operating System; FORTRAN (E) Programmer's Guide, Form C28-6603. 
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If you want to linkage edit previously compiled modules with the output of the current 
compilation, you must also supply the following DD statement. 

//LKED.SYSIN DD (* or parameters defining an input data set) 

If the problem program refers to SYSIN, you must supply the following DD statement. 

//GO.SYSIN DD (* or parameters defining an input data set) 

If SYSIN is other than data set reference number 1, you must nullify the DD statement 
whose name is FT01F001, and define the alternative SYSIN data set in a DD statement 
in the input stream. 

If the problem program refers to other data sets, you must use predefined names for the 
DD statements that define these data sets. For a more detailed description, refer to the 
publication IBM System/360 Operating System: FORTRAN (E) Programmer's Guide. 

Procedure FORTELG: A two step procedure to linkage edit and execute the output 
of a FORTRAN E compilation. 



//LKED 


EXEC 


PGM=IEWL, PARM=(XREF, LIST, LET) 


00020000 


//SYS LIB 


DD 


DSNAME=SYS1 . FORTLIB, DISP=OLD 


00040000 


//SYSLMOD 


DD 


DSNAME=&GOSET(MAIN),DISP=(NEW,PASS), 


X00060000 


// 




UNIT=SYSDA,SPACE=(1024, (50,20,1)) 


00080000 


//SYSUT1 


DD 


UNIT=SYSDA,SEP=(SYSLMOD,SYSUB), 


X00 100000 


// 




SPACE=(l024 f (30,20)) 




//SYSPRINT 


DD 


SYSOUT=A 


00120000 


//SYS LIN 


DD 


DDNAME=SYSIN 


00140000 


//GO 


EXEC 


PGM=*.LKED.SYSLMOD,COND=(5,LT,LKED) 


00160000 


//FT02F001 


DD 


UNIT=SYSCP 


00180000 


//FT03F001 


DD 


SYSOUT=A 


00200000 


//FT01F001 


DD 


DDNAME=SYSIN 


00220000 



You must supply the following DD statement in the input stream. 

//LKED.SYSIN DD (* or parameters defining the input data set) 
If the problem program refers to SYSIN, you must supply the following DD statement. 

//GO.SYSIN DD (* or parameters defining an input data set) 

If SYSIN is other than data set reference number 1, you must nullify the DD statement 
whose name is FT01F001, and define the alternative SYSIN data set in a DD statement 
in the input stream. 

If the problem program refers to other data sets, you must use predefined names for the 
DD statements that define these data sets. For a more detailed description, refer to 
the publication IBM System/360 Operating System: FORTRAN (E) Programmer's Guide. 
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Procedure SOR1 


": A single step procedure to execute the SORT 


program . 




//SORT 


EXEC 


PGM=IERRCO00 




00020000 


//SYSOUT 


DD 


SYSOUT=A 




00040000 


//SYSPRINT 


DD 


DUMMY 




00060000 


//SYSLMOD 


DD 


UNIT=SYSDA,SPACE=(1024, (50,20,1)) 




00080000 


//SYS LIN 


DD 


UNIT=SYSDA,SPACE=(80,(150,10)) 




00100000 


//SORTLIB 


DD 


DSNAME=SYS1. SORTLIB, DISP=OLD 




00120000 


//SYSUT1 


DD 


UNIT=(SYSDA,SEP=(SORTUB,SYSLMOD„SYSLIN)), 


X00 140000 


i ; 




SPACE=(1024, (50,20)) 




00160000 



You must supply the following statements in the input stream. 
Input for a Sort run 

//SORTIN DD (parameters defining an input data set) 

Input for a Merge run 

____________________ 

//SORTIN01 DD (parameters defining an input data set) 

• Up to 16 data sets can be specified 

• 

//SORTIN 16 DD (parameters defining an input data set) 
Output for a Sort/Merge run 

//SORTOUT DD (parameters defining an output data set) 
Ihtermediate storage for a Sort/Merge run 

//SORTWK01 DD (parameters defining an intermediate work data set) 



//SORTWK32 DD (parameters defining an intermediate work data set) 

If you have written routines to modify the Sort/Merge program, and these routines are 
in the data set defined by the DD statement whose name is SYSIN, you must supply the 
following DD statements. 

//SORTMODS DD (paramenters defining a temporary partitioned data set) 

This partitioned data set must be large enough to contain all the routines that are in the 
SYSIN data set. 
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//SYSIN DD ( * or parameters defining an input data set) 

If you use the DD * statement, you must follow the input data with a Delimiter statement 

If the modification routines are in a partitioned data set you must supply a statement 
that defines the data set. 

For a detailed description and examples of DD statements used with Sort/Merge, refer 
to the publication IBM System/360 Operating System; Sort/Merge, Form C28-6543. 

Procedure LKED: A single step procedure that linkage edits a module and passes the 
load module to another step in the same job. 



//LKED 


EXEC 


PGM=IEWL, PARM='XREF, LIST, LET, NCAL' 00020000 


//SYSPRINT 


DD 


SYSOUT=A 00040000 


//SYS LIN 


DD 


D D N AME=S YS 1 N 00060000 


//SYSLMOD 


DD 


DSNAME=&GOSET(GO),SPACE=0024,(50,20,1)), C00080000 


// 




UNIT=SYSDA,DISP=(MOD,PASS) 00100000 


//SYSUT1 


DD 


UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)), C00120000 


// 




SPACE=(1024, (200,20)) 00140000 



You must supply the following DD statement in the input stream. 

//SYSIN DD ( * or parameters defining an input data set) 

If you use the DD * statement you must follow the input data with the Delimiter 
statement. 

Procedure LKEDG: A two step procedure that linkage edits a module and executes the 
load module. 



//LKED 


EXEC 


PGM=IEWL, PARM='XREF, LIST, LET, NCAL" 


00020000 


//SYSPRINT 


DD 


SYSOUT=A 


00040000 


//SYS LIN 


DD 


DDNAME=SYSIN 


00060000 


//SYSLMOD 


DD 


DSNAME=&GOSET(GO),SPACE=(1024,(50,20,1)), 


C00080000 


// 




UNIT=SYSDA,DISP=(MOD,PASS) 


00100000 


//SYSUT1 


DD 


UNIT=(SYSDA,SEP=(SYSLMOD,SYSUN)), 


COO 120000 


// 




SPACE=(1024, (200,20)) 


00140000 


//GO 


EXEC 


PGM=*. LKED. SYSLMOD 


00160000 



You must supply the following DD statement in the input stream. 

//LKED. SYSIN DD (* or parameters defining an input data set) 

If you use the DD * statement, you must follow the input data with a Delimiter state- 
ment. 
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Procedure TTED: A single step procedure that executes the Testran Editor. 



//EDIT EXEC PGM=IEGTTEDT 

//SYSUT1 DD UNIT=SYSDA,SPACE=(500, 100)) 

//SYSPRINT DD SYSOUT=A 



00020000 
00040000 
00060000 



You must supply the following DD statement in the input stream. 

//SYSTEST DD (parameters defining a data set) 

You should use a unique DSNAME parameter and appropriate DISP parameters in the 
above statement. 

Procedure TASMEGED; A four step procedure that assembles a program using the 
Tefctran interpreter, linkage edits the output of the assembler, executes the load module, 
and executes the Testran Editor to analyze the output of the assembled program. 



//ASM 


EXEC 


PGM=I ETASM, PARM=(LOAD, TEST) 


00020000 


//SYS LIB 


DD 


DSNAME=SYSl.MACUB,DISP=(OLD) 


00040000 


//SYSUT1 


DD 


UNIT=(SYSSQ,SEP=(SYSUB)), 


C00060000 


// 




SPACE=(400, (150,20)) 


00080000 


//SYSUT2 


DD 


UNIT=(SYSSQ,SEP=(SYSUT1)), 


C00 100000 


// 




SPACE=(400,(150,20)) 




//SYSUT3 


DD 


UNIT=(SYSSQ,SEP=(SYSLIB,SYSUT2)), 


COO 120000 


// 




SPACE=(400 # (150,20)) 


00140000 


//SYSPRINT 


DD 


SYSOUT=A 


00160000 


//SYSPUNCH 


DD 


DSNAME=&LOADSET,UNIT=SYSDA, 


COO 180000 


// 




SPACE=(80, (200,50)), DISP=(MOD, PASS) 


00200000 


//LKED 


EXEC 


PG/VHEWL, 


C00220000 


// 




PARM=(XREF, LIST, LET, NCAL, TEST) 




//SYSPRINT 


DD 


SYSOUT=A 


00240000 


//SYS LIN 


DD 


DSNAME=&LOADSET, DISP=(OLD) 


00260000 


// 


DD 


DDNAME=SYSIN 


00280000 


//SYSLMOD 


DD 


DSNAME=&GOSET(GO) / SPACE=< 1 024,(50, 20,1)) 


C00300000 


// 




UNIT=SYSDA, DISP=(MOD, PASS) 


00320000 


//SYSUT1 


DD 


UNIT=(SYSDA,SEP=(SYSLMOD,SYSUN)), 


C00340000 


// 




SPACE=(1024, (200,20)) 


00360000 


//GO 


EXEC 


PGM=*. LKED. SYSLMOD 


00380000 


//SYSTEST 


DD 


DSNAME=&TESTSET,SPACE=(300,(100)), 


C00400000 


// 




UNIT=SYSSQ, DISP=(NEW, PASS) 


00420000 


//EDIT 


EXEC 


PGM=IEGTTEDT 


00440000 


//SYSUT1 


DD 


UNIT=SYSDA,SPACE=(500,(100)) 


00460000 


//SYSTEST 


DD 


DSNAME=&TESTSET,UNIT=SYSSQ, 


C00480000 


// 




SEP=(SYSUT1), DISP=(OLD, DELETE) 


00500000 


//SYSPRINT 


DD 


SYSOUT=A 


00520000 



If you want to keep the SYSTEST data set for subsequent testing, you should override the 
data set name &TESTSET with another data set name, and override the DELETE disposition 
with KEEP. 
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If you want to select what is to be tested, you should add parameters to the EXEC state- 
ment whose name is EDIT. 

When a job step abnormally terminates, that step and any subsequent steps in the job 
are skipped. If your problem program abnormally terminates, and you are using the 
procedure TASMEGED, the Testran Editor will not be executed. Furthermore, since 
the disposition of the data set defined by the SYSTEST DD statement is PASS, that data 
set will be deleted and all test data will be lost. 

If you expect that a problem program being tested will abnormally terminate, you should 
use the procedure TASMEG as one job and follow it with the procedure TTED as another 
job. You should also assign a KEEP disposition to the data set defined by the SYSTEST 
DD statement. This will allow you to recover any test data placed in this data set. 

Procedure TASME: A two step procedure that assembles a program using the Testran 
interpreter and linkage edits the output of the assembler. 



//ASM 


EXEC 


PGM=IETASM, PARM=(LOAD, TEST) 


00020000 


//SYS LIB 


DD 


DSNAME=SYSl.MACLIB,DISP=(OLD) 


00040000 


//SYSUT1 


DD 


UNIT=(SYSSQ,SEP=(SYSUB)), 


C00060000 


// 




SPACE=(400, (150,20)) 


00080000 


//SYSUT2 


DD 


UNIT=(SYSSQ,SEP=(SYSUT1)), 


COO 100000 


// 




SPACE=(400,(150,20)) 




//SYSUT3 


DD 


UNIT=(SYSSQ,SEP=(SYSLIB,SYSUT2)) 


COO 120000 


// 




SPACE=(400, (150,20)) 


00140000 


//SYSPRINT 


DD 


SYSOUT=A 


00160000 


//SYS PUNCH 


DD 


DSNAME=&LOADSET,UNIT=SYSDA, 


COO 180000 


// 




SPACE=(80, (200,50)), DISP=(MOD, PASS) 


00200000 


//LKED 


EXEC 


PGM=IEWL, 


C00220000 


// 




PARM=(XREF, LIST, LET, NCAL,TEST) 




//SYSPRINT 


DD 


SYSOUT=A 


00240000 


//SYS LIN 


DD 


DSNAME=&LOADSET, DISP-(OLD) 


00260000 


// 


DD 


DDNAME=SYSIN 


00280000 


//SYSLMOD 


DD 


DSNAME=&GOSET(GO),SPACE=(1024,(50,20,1)) 


C00300000 


// 




UNIT=SYSDA, DISP=(MOD, PASS) 


00320000 


//SYSUT1 


DD 


UNIT=(SYSDA,SEP=(SYSLMOD,SYSUN)), 


C00340000 


// 




SPACE=(1024, (200,20)) 


00360000 



You must supply the following DD statement in the input stream. 

//ASM.SYSIN DD (*or parameters defining an input data set) 
If you use the DD * statement you must follow the input data with a Delimiter statement. 
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Procedure TASMEG: A three step procedure that assembles a program using the 
testran interpreter, linkage edits the output of the assembler, and executes the load 
module. 



//ASM 


EXEC 


PGM=IETASM, PARM=(LOAD, TEST) 


00020000 


//SYSLIB 


DD 


DSNAME=SYS1 .MACLIB,DISP=(OLD) 


00040000 


//SYSUT1 


DD 


UNIT=(SYSSQ,SEP=(SYSLIB)), 


C00060000 


// 




SPACE=(400, (150,20)) 


00080000 


//SYSUT2 


DD 


UNIT=(SYSSQ,SEP=(SYSUT1)), 


COO 10000 


// 




SPACE=(400, (150,20)) 




//SYSUT3 


DD 


UNIT=(SYSSQ,SEP(SYSLIB,SYSUT2)), 


COO 120000 


// 




SPACE=(400, (150,20)) 


00140000 


//SYSPRINT 


DD 


SYSOUT=A 


00160000 


//SYSPUNCH 


DD 


DSNAME=&LOADSET,UNIT=SYSDA, 


COO 180000 


// 




SPACE=(80, (200,50)), DISP=(MOD, PASS) 


00200000 


//LKED 


EXEC 


PGM=IEWL,PARM=(XREF, LIST, LET, MCAL, TEST) 00220000 


//SYSPRINT 


DD 


SYSOUT=A 


00240000 


//SYS LIN 


DD 


DSNAME=&LOADSET, DISP=(OLD) 


00260000 


// 


DD 


DDNAME=SYSIN 


00280000 


//SYSLMOD 


DD 


DSNAME=&GOSET(GO),SPACE=(1024,(50)(20(1)),C00300000 


// 




UNIT=SYSDA,DISP=(MOD,PASS) 


00320000 


//SYSUT1 


DD 


UNIT=(SYSDA,SEP=(SYSLMOD,SYSUN)), 


C00340000 


// 




SPACE=(1 024, (200,20)) 


00360000 


//GO 

L 


EXEC 


PGM=*. LKED. SYSLMOD 


00380000 



You must supply the following DD statements in the input stream. 

//SYSTEST DD (parameters defining a data set) 

You should use a unique DSNAME parameter and appropriate DISP parameters in the 
above statement. 

//ASM.SYSIN DD (* or parameters defining an input data set) 

If you use the DD * statement, you must follow the input data with a Delimiter state- 
ment. 

Procedure MOD: A single step procedure to execute the system utility program that 
permits modifying system control data. 



//MOD EXEC PGM=IEHPROGM 

//DDSRV DD VOLUME=REF=SYSl.SVCUB,DISP=OLD 

//SYSPRINT DD SYSOUT=A 



00020000 
00040000 
00060000 



Ybu should supply the following DD statement in the input stream. 
//SYSIN DD ( * or parameters defining an input data set) 



49 



If you use the DD * statement, you should follow the input data with a Delimiter 
statement. 

Procedure LIST: A single step procedure to execute the utility program that lists 
system control data. 



//LIST EXEC PGM=IEHLIST 00020000 

//DDSRV DD VOLUME=REF=SYSl.SVCLIB,DISP=OLD 00040000 

//SYSPRINT DD SYSOUT=A 00060000 



You should supply the following DD statement in the input stream. 

//SYSIN D ( * or parameters defining an input data set) 

If you use the DD * statement, you should follow the input data with a Delimiter 
statement. 

Procedure COBEC: A single step procedure to execute the COBOL E compiler. 



//COB 


EXEC 


PGM=IEPCBL00 


00020000 


//SYSPRINT 


DD 


SYSOUT=A 


00040000 


//SYSPUNCH 


DD 


UNIT=SYSCP 


00060000 


//SYSUT1 


DD 


UNIT=SYSSQ,SPLIT=(2,CYL,(40,10)) 


00080000 


//SYSUT2 


DD 


UNIT=SYSSQ,SPLIT=4 


00100000 


//SYSUT3 


DD 


UNIT=SYSSQ,SPLIT=4 


00120000 



You must supply the following DD statement in the input stream: 

//COB. SYSIN DD ( * or parameters defining an input data set) 

When you use the DD * statement you must follow the input data with the Delimiter 
statement (/* ). 

Procedure COBELG: A two step procedure to linkage edit and execute the output of a 
COBOL E compilation. 



//LKED 


EXEC 


PGM=IEWL,PARM=(XREF, LIST, LET) 


00020000 


//SYS LIN 


DD 


DDNAME=SYSIN 


00040000 


//SYSLMOD 


DD 


DSNAME=&GODATA(RUN), DISP=(NEW, PASS), 


X00060000 


// 




UNIT=SYSDA,SPACE=(1024, (50,20,1)) 


00080000 


//SYS LIB 


DD 


DSNAME=SYSl.COBLIB # DISP=(OLD,KEEP) 


00100000 


//SYSUT1 


DD 


UNIT=(SYSDA,SEP=(SYSUN, SYSLMOD)), 


COO 120000 


// 




SPACE=(1024, (50,20,1)) 




//SYSPRINT 


DD 


5YSOUT-A 


00140000 


//GO 


EXEC 


PGM=* . LKED. SYSLMOD, COND=(9, LT, LKED) 


00160000 


//SYSABEND 


DD 


SYSOUT=A 


00180000 



You must supply the following DD statement in the input stream: 
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//LKED.SYSIN DD ( * or parameters defining the input data set) 

If the problem program refers to SYSIN, you must supply the following DD statement: 

//GO.SYSIN DD (* or parameters defining the input data set) 

If the problem program refers to other data sets, you must provide DD statements that 
define these data sets. 

Procedure COBECLG: A three step procedure to do a compile, linkage edit, and 
execute using the COBOL compiler. 



//COB 


EXEC 


PGM=IEPCBL00 


00020000 


//SYSPRINT 


DD 


SYSOUT=A 


00040000 


//SYSUTl 


DD 


UNIT=SYSSQ,SPLIT=(2,CYL,(40,10)) 


00060000 


//SYSUT2 


DD 


UNIT=SYSSQ,SPLIT=4 


00080000 


//SYSUT3 


DD 


UNIT=SYSSQ,SPUT=4 


00100000 


//SYSPUNCH 


DD 


DSNAME=&LOADSET,DISP=(MOD,PASS), 


X00 120000 


// 




UNIT=SYSSQ,SPACE=(TRK,(50,10)) 


00140000 


//LKED 


EXEC 


PG/VHEWL, PARM=(XREF, LIST, LET) 


00160000 


//SYS LIN 


DD 


DSNAME=&LOADSET, DISP=(OLD, DELETE) 


00180000 


// 


DD 


DDNAME=SYSIN 


00200000 


//SYSLMOD 


DD 


DSNAME=&GODATA(RUN), DISP=(NEW, PASS), 


X00220000 


// 




UNIT=SYSDA,SPACE=(1024, (50,20,1)) 


00240000 


//SYSLIB 


DD 


DSNAME=SYSl.COBLIB,DISP=(OLD,KEEP) 


00260000 


//SYSUTl 


DD 


UNI T=(SYSDA,SEP=(SYSLIN, SYSLMOD)), 


X00280000 


// 




SPACE=(1024, (50,20,1)) 




//SYSPRINT 


DD 


SYSOUT=A 


00300000 


//GO 


EXEC 


PGM=* . LKED. SYSLMOD,COND=(9, LT, LKED) 


00320000 


//SYSABEND 

i 


DD 


SYSOUT=A 


00340000 



You must supply the following DD statement in the input stream: 

//COB. SYSIN DD ( * or parameters defining an input data set) 

If the problem program refers to SYSIN, you must supply the following DD statement: 

//GO.SYSIN DD ( * or parameters defining an input data set) 

If the problem program refers to other data sets, you must provide DD statements that 
define these data sets. 
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Appendix £ - Section II 

EXAMPLES OF JOB CONTROL LANGUAGE PROCEDURES 

Procedure Page 

Figure 1 __J 4.4.101 

Assemble and obtain an object deck only 4.4.102 

Assemble and obtain an object deck only using a macro library in addition to 

SYSUMACLIB 4.4.103 

Assemble and create a load module . 4.4.104 

Assemble and create a load module named PRG MODI 4.4.105 

Assemble multiple source decks and linkedit into one load module 4.4.106 

Assemble multiple source decks and make one module named PROGMOD 4.4.107 

Assemble, Linkedit, and Execute one source deck 4.4.108 

Assemble, Linkedit, and Execute one source deck. Name the module which 

is created PRG MOD 4 4.4.109 

Assemble/FORTRAN Compile multiple source decks into multiple load modules 

named — ONE, TWO, THREE 4.4.110 

Assemble, Load, Go with TESTRAN output and postedit 4.4.111 

Assemble, Link, and Go with TESTRAN postedit in separate job 4.4.112 

Assembly Procedure for one Assemble 4.4.113 

Assemble S^ep - First 4.4.114 

Assemble Sl*ep - Other than first 4.4.115 

Assemble (slacked) Load and Go Procedure 4.4.116 

Assemble, Load, and Go Procedure 4.4.117 & 118 

Assembl e J 4.4.119 

COBOL Cdmpile/Linkedit and Go/Compiler-Linkedit-Go 4.4.120 

FORTRAN Compile - one source deck into one load module 4.4.121 

FORTRAN Compile - one source deck into one load module named PROG MOD 2 4.4.122 

FORTRAN Compile multiple source decks and combine into one load module 4.4.123 

FORTRAN Compile multiple source decks and comgine into one load module 

named PRG MOD 3 4.4.124 

FORTRAN Compile, Linkedit, and Execute-one source deck 4.4.125 

FORTRAN Compile, Linkedit, and Execute-one source deck. Name the module 

which is created PRG MOD 5 4.4.126 

FORTRAN Compile/ Assemble multiple source decks and create one load module. 

(Multiple object into one load module) 4.4.127 

FORTRAN H - First compilation procedure for stacked compilation 4.4.128 

FORTRAN H - Compilation Step - Other than first 4.4. 129 

FORTRAN H - Compile and Linkedit procedures 4.4.130 

FORTRAN H - Load and Go Procedure 4.4.131 & 132 

FORTRAN H - Compile, Load, and Go 4.4.133 & 134 

FORTRAN Compile/Linkedit and Go/Compiler-Linkedit-Go 4.4.135 

Joblib - Build a Joblib of two load modules and execute the 2nd one 4.4.136 

Joblib - Assemble, Linkedit, and execute using a previously built Job Library 4.4.137 

Linkedit and use an additional AUTO-CALL Library . (Illustrates use of DDNAME 

option in Job Control Language.) .4.4.138 
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Linkedit multiple object decks into one load module 4.4.139 

Linkedit multiple object decks into multiple load modules (Illustrates use of 

NAME control statement in linkeditor). 4.4.140 

Linkedit multiple object decks and load a module from a private library. (Illustrates 

use of ALIAS, NAME, INCLUDE) 4.4.141 

Linkedit and execute an object deck using TESTRAN 4.4.142 

Linkedit multiple object decks into one load module and define an entry point. 

(Use of ENTRY statement) 4.4.143 

Linkedit and execute an object module having TESTRAN. In addition, execute 

the TESTRAN posteditor to obtain formatted output 4.4.144 

Linkedit from card reader and disk 4.4.145 

Linkedit Step 4.4.146 

Linkedit Step with TESTRAN 4.4.147 

Linkedit Step with multiple inputs 4.4.148 

Linkedit Step with multiple inputs and TESTRAN^_ 4.4.149 

Procedure Library -Adding a procedure to SYS1 .PROCLIB 4.4.150 

TESTRAN postedit step. 4.4.151 

TESTRAN execution and postedit steps 4.4.152 & 153 

Update temporarily Source module. Then assemble updated module linkedit, 

and execute it. ^___ '. 4.4.154 

Update permanently source module. Then assemble updated module, linkedit, 

and execute it. 4.4.155 

Update temporarily a FORTRAN source module. Then compile the updated module, 

linkedit, and execute it. 4.4.156 

Update permanently a FORTRAN source module. Then compile the updated module, 

linkedit, and execute it. 4.4. 157 

Update permanently an RT-Load module using an Object deck 4.4.158 

Update permanently a Source module and the corresponding RT-Load module 

in their respective libraries . 4.4.159 



54 



EXECTEST 



■TESTEDIT-H 



FORTHCLG 
ASMLDGO 



— LOADANGO- 

FORTHLG — 

RTOS *- 



EXECSTEP- 



-a 

O 

—i 
I 

m 



o£ 




FORTHCL 



LNKTSTMT 
LINKMULT 
-LINKTEST 

- LINKEDIT 

- LINK — 







z 

7S 

m 

a 

-HI 


. / Q< 


?A 


1 ° 


s y 







5:0 





00 


u 


m 


c: 


O 


r~ 


-H 


m 





ADDITIONAL 
OBJECT 
MODULES 


V 


s 


s 



FORTHCN 
FORTHC.l 
ASSEMBLN 
ASSEMBL1 
ASSEMBLE 



O 

OD 

LT> 
ZE 

O 
-O 

TJ 

o 

n 

m 

a 

c 

m 




Figure 1 



55 



ASSEMBLE 



OBTAIN OBJECT DECK ONLY 



Nome Operation Operand 
' 8 l0 u 16 20 2.=, 30 35 40 


/ 


/ 


A 


S 


M 


J 





B 


1 






J 





B 






M 


s 


G 


L 


E 


V 


E 


L 


= 


i 






























/ 


/ 


















E 


X 


E 


C 






A 


s 


S 


E 


M 


B 


L 


E 


































/ 


/ 


S 


Y 


S 


I 


N 












D 


D 






* 






















































c 


















<- 










































c, 




















\ 


















^ 




A 


S 


S 


E 


M 


B 


L 


E 


R 




L 


A 


N 


G 


U 


A 


G 


E 




£ 




















*) 


















<, 




S 





u 


R 


C 


E 




D 


E 


C 


K 


















? 




















\ 


















? 










































] 














/ 


* 















































































/ 


1 


A 


S 


M 


J 





B 


Z 






J 





B 




M 


S 


G 


L 


E 


V 


E 


L 


= 


i 
































1 


1 


S 


T 


E 


P 


i 








E 


X 


E 


C 




A 


S 


S 


E 


M 


B 


L 


E 




































1 


/ 


S 


Y 


S 


I 


N 












D 


D 




* 
























































,; 


















, 










































r 




















( 


















S 




A 


S 


5 


E 


M 


B 


L 


E 


R 




L 


A 


N 


G 


U 


A 


G 


E 




( 




















> 


















j 




S 





U 


R 


C 


E 




D 


E 


C 


K 


















[ 




















< 


















J 










































) 














1 


* 


















































































/ 


/ 


A 


S 


M 


J 





B 


3 






J 





B 




M 


s 


G 


L 


E 


V 


E 


L 


» 


i 
































/ 


/ 


5 


T 


E 


P 


1 








E 


X 


E 


C 




A 


5 


S 


E 


M 


B 


L 


E 




































/ 


/ 


5 


T 


E 


P 


1 


• 


A 


S 


M 


• 


S 


Y 


S 


I 


N 







D 




* 












































«• 


















<■ 










































< 




















< 


















< 




A 


5 


S 


E 


M 


B 


L 


E 


R 




L 


A 


M 


G 


U 


A 


G 


E 




S 




















7 


















5 




S 





U 


R 


C 


E 




D 


E 


c 


K 


















( 




















> 


















I 










































? 














/ 


* 















































































56 



«««, ! ASSEMBLE USING ADDITIONAL MACRO LIBRARY 


PROGRAMMER 


DATE 




Name Operation Operand 
1 8 10 u 16 20 25 30 35 40 


A 


// 


^ 


M 


J 





B 


4- 






J 





B 




M 


s 


G 


L 


E 


V 


E 


L 


= 


1 


























— — 


/ 


/ 
















E 


X 


E 


C 




A 


s 


S 


E 


M 


B 


L 


E 
























/ 


// 


^ 


M 


• 


s 


Y 


S 


L 


I 


B 







D 
















































1 


/ 




















D 


D 




D 


s 


N 


A 


M 


E 


= 


S 


MA 


• 


M 


A( 


;l 


I 


B 


> 














y_ 


/ 


























D 


I 


S 


P 


- 





L 


D 


f 






























/ 


/ 


























VI 





L 


U 


M 


E 


= 


S 


E 


R 


= 


S 


MA2 





5 
















/ 


/i 


iY 


S 


I 


N 












D 


D 




* 




















































<; 














c 












A 


S 


5 


E 


M 


B 


L 


E 


R 
































) 














\ 










s 





U 


R 


C 


E 




MO 


D 


U 


LE 


























/ 














) 


















































/ 


* 












































































! 










































































57 
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-»o«M ASSEMBLE AND CREATE A LOAD MODULE NAMED PRGMOD1 


0NE 0BJECT INT0 0NE L0AD M0DULE ™ 
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Name Operation Operand 
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// l EXEC LINKEDIT 




//L^K.SYSLM0D DD DSNAM 
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//LIMK.SYSLMOD DD DSNAME 


=«G0FILE 


//5Y_SIM DD * 
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/* 





59 



—ASSEMBLE (MULTIPLE) AND CREATE 0NE LOAD MODULE 
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-og,« ASSEMBLE (MULTIPLE) AND CREATE UDAD MODULE PROGMOD 
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ASSEMBLE. UNKEDIT. AND EXECUTE 



0ME 0BJECT, 0NE L0AD M0DULE 
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PROGRAM 



ASSEMBLE , LINKED1T, AND EXECUTE - MODULE = PRGM0P4 
0NE 0BJECT, 0NE L0AP M0DULE 
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-oram ASSEMBLE i COMPILE -f CREATE MULTIPLE LOAD MODULES 



SINGLE OBJECT INTO EACH LOAD MODULE 
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—(ASSEMBLE LOAD/AND/GO WITH TESTRAN POSTEDIT 


PUNCHINC 








ONE JOB 


INSTRUCTIONS 
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-oram ASSEMBLE L0AD AND G0 WITH TESTRAN 0UTPUT 






AND P05TEDIT IN SEPARATE JOB 






Nome Operation Operand 
1 8 10 14 16 20 25 30 35 40 45 


A 


/ 


A 


S 


M 


T 


R2 






J 





B 




M 


S 


G 


LE 


;v 


E 


L 


= 


i 








































2 


I 














E 


X 


E 


C 




A 


S 


M 


LC 


)G 

















































i 


I 


5 


Y 


S 


I 


N 








D 


D 




* 




































































r 


S 





U 


R 


C 


E 


] 




































































\ 


D 


E 


C 


K 










































































K. 














J 
























































/ 


* 
















































































/ 


/ 


E 


X 


E 


C 


.5 


YS 


T 


E 


S 


T 




D 


D 




D< 


pM 


A 


M 


E 


= 


B 





G 


S 


T 


E 


S 


T 


1 


u 


N 


1 


T 


--DI 


S 
E 


K 
P 


9 

) 


f 


/ 


/ 
























V 





L 


U* 


/IE 


= 


S 


E 


R 


= 


R 


T 





S 


A 


» 


D 


I 


S 


P 


» 


( 


,!< 


;e 


/ 


/ 
























S 


P 


A 


CI 




( 


T 


R 


K 


1 


( 


1 








» 


1 





) 


) 














L 


/ 


A 


S 


M 


T 


R3 






J 





B 




M 


S 


G 


LE 


EV 


E 


L 


= 


1 








































I 


/ 














E 


X 


E 


C 




T 


E 


S 


TE 


:D 


I 


T 












































/ 


/ 


E 


D 


T 


• 


SY 


ST 


E 


S 


T 




D 


D 




D 


sr 


<A 


M 


E 


= 


B 





G 


5 


T 


E 


S 


T 


9 


















— 






/ 


1 
























V 





L 


in 


AE 


- 


S 


E 


R 


= 


R 


T 





S 


A 









































































































1 




73 














































c 






c 
























c 

















66 



ASSEMBLE (ASM) 



* v SOURCE 



I 



MODULE 



SYSIN 



i 



(REQUIRED) I 





SYS 1. MAC LIB 
DISP-OLD 



"F" LEVEL 
ASSEMBLER 



TIME 



SCRATCH DATA 
SETS 




TIME TO 
ASSEMBLE 



ASSEMBLER 
LISTINGS 



//ASM EXEC 


PGM=IEUASM 


// 


5C 


// 


» ASSEMBLY 


// 


*% 


//SYSPRINT DD 


SYSOUT=A 


//SYSUT1 DD 


UNIT=DISK„ 


//SYSUT2 DD 


UNITrTAPE, 


//SYSUT3 DD 


UNIT=DISK, 


//TIME DD 


SYSOUT=A 


//SYBLIB DD DSNAME=SYS1 


//SYSPUNCH DD 


UNIT=PUNCH 



PROCEDURE FOR ONE ASSEMBLY 



SPACE=(CYL,(3 0, 1 ) ), VOLUME=SER=RTOSA 
LABEL=(,NL),SEP=(SYSUT1) 
SPACE=(CYL,(50, 1 )), VOLUME=SER=RTOSB 

MACLIB,DISP=OLD 



NOTE: Ref. figure on pg. 4.4.101 
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ASSEMBL1 



SOURCE 



k 



MODULE 



\ 



^ SYSIN 

J_ (REQUIRED) j 



SYSLIB 



SYS I.MAC LIB 
DISPOLD 



(ASM) 



"F" LEVEL 
ASSEMBLER 



SYSUT1 




SYSUT3 



SCRATCH DATA SETS 



OBJECT 
MODULE 



SYSGO 




TIME TO 
ASSEMBLE 



ASSEMBLER 
LISTINGS 



&LNKFILE 
DISP- 

(NEW, PASS) 



I SYS PUNCH 



OBJECT 
DECK ^> 



C—J 



I 



(OPTIONAL) 



I 

I 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



ASM 



EXEC PGM=IEUASM 



SYSPRINT DD 
TIME DD 
SYSUT1 DD 
SYSUT2 DD 
SYSUT3 DD 
SYSGO DD 



55 ASSEMBLE STEP — FIRST 

-FIRST ASSEMBLY PROCEDURE IN STACKED ASSEMBLY 

SYSOUT=A 

SYSOUT=A 

UNIT=DISK,SPACE=(CYL,(30, 10)), VOLUME=SER=RTOSA 

UN I T=TAPE,LABEL=(,NL) ,SEP=(S YSUT1) 

UNIT=DISK,SPACE=(CYL,(50, 10)), VOLUME=SER= 

UNIT=DISK,SPACE=CCYL,(3, 1) ), VOLUME=SER=RTOSA, 

DISP=(NEW,PASS),DSNAME=£LNKFILE 



SYSLIP DD DSNAME=SYS1.MACLIB,DISP=0LD 
NOTE: Ref. figure on pg. 4.4.101 
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ASSEMBLN 



/K. *- — — 

*Ov SOURCE 



s MODULE 
*> 

"Y SYSIN 



, ■ (REQUIRED) I 



SYS LIB 



SYS 1. MAC LIB 
DISP-OLD 



(RSM) 



"F" LEVEL 
ASSEMBLER 



r 



<Z> 



SYSUT1 




SCRATCH DATA SETS 



SYSGO 

OBJECT 
MODULE 




&LNKFILE 

DISP-(MOD, 

PASS) 



SYS PUNCH 
(OPTIONAL) 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



ASM 



EXEC PGM=IEUASM 

"ASSEMBLE STEP « OTHER THAN FIRST 



SYSPRINT DD 
SYSUT1 DD 
SYSUT2 DD 
SYSUT3 DD 
SYSGO DD 



TIME 



DD 



-FOLLOW-UP TO ASSEMBLE IN STACKED ASSEMBLY 

SYSOUT=A 

UNIT=DISK # SPACE=(CYL / (30 / 10)) > VOLUME=SER=RTOSA 
UNIT=TAPE / LABEL=C,NL) > SEP=(SYSUT1) 
UNIT=DISK,SPACE=(CYL,(50,10)),VOLUME=SER=RTOSB 
UNIT=DISK / SPACE=(CYL / C3 / 1 )), VOLUME=SER=RTOSA, 

DISP=(NEW,PASS),DSNAME=&LNKFILE 
SYSOUT=A 



SYSLIB DD DSNAME=SYSl.MACLIB,DISP=OLD 



NOTE: Ref. figure on pg . 4.4.101 
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LOADANGO 



(LNK) 



SYSUT1 
SCRATCH 



SYSLIN 




&LNKFILE 
DISP=(OLD, DELETE) 



PARM=' MAP, LIST, LET,NCAL, 
XREF,REUS" 



LINKED IT 




SYSLMO 




SYSPRINT 



&GOFILE (PROG) 
DISP=(NEW, PASS) 



PROBLEM 
PROGRAM 



*.LNK.SYSLMOD 



SYSABEND 



SYSPRINT 



//LNK EXEC PGM=LINKEDIT,PARM= , MAP,LIST,LET,NCAL,XREF,REUS , 

// " 

// - LOADAND GO PROCEDURE USED AFTER STACKED ASSEMBLY 

// " 

//SYSUTI DD UNIT=DISK > SPACE=(CYL,(R,l)),VOLUME=SER=RTOSA 

//SYSPRINT DD SYSOUT=A 

//SYSLMOD DD DSNAME= SGOF I LE(PROG), UNIT=DI SK, DI SP=C, PASS), 

// SPACE=(TRK,(8, 1, 1 ) ), VOLUME=SER=RTOSB 

//SYSLIN DD UNIT=DISK,DISP=(OLD, DELETE), VOLUME=SER=RTOSA, 

// DSNAME=£LNKFILE,DCB=(RECFM=F,BLKSIZE=8 0) 

//EXEC EXEC PGM= :: . LNK. SYSLMOD 

//SYSPRINT DD SYSOUT=A 

//SYSABEND DD SYSOUT=A 



NOTE: Ref. figure on pg . 4.4.101 
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ASMLDGO 



fT\SOURCE~~\ 
l\ \ MODULE \ 

i \> ^ 

^ ] SYSIN I 

\ | (REQUIRED) I 



SYS LIB 



SYS1.MACLIB 
DISP=OLD 



\ 



(ASM) 



"F" LEVEL 
ASSEMBLER 




TIME 




TIME TO 
ASSEMBLE 



ASSEMBLER 
LISTINGS 



SCRATCH DATA SETS 



OBJECT 



/A 

/ DECK • • I 
,d -^ / . 

I SYSPUNCH Y / 

| (OPTIONAL) I / 
I V 



&LNKFILE 
DISP=(NEW, PASS) 




&LNKFILE 
DlSP=(OLD, DELETE) 



SYSUT1 
SCRATCH 



(LNK) 



SYSPRINT 



SYSLMOD &GOFILE (PROG) 
* Y:>L " DISP=(NEW, PASS) 
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(EXEC) 



PROBLEM 
PROGRAM 



*.LNK.SYSLMOD 



SYSABEND 



SYSPRINT 



//ASM 

II 

II 

II 

//SYSPRINT DD 

//SYSUT1 DD 

//SYSUT2 DD 

//SYSUT3 DD 

//TIME DD 

//SYSLIB DD 

//SYSGO DD 

II 

//LNK EXEC 

II 

II 

II 

//SYSUT1 DD 

//SYSPRINT DD 

//SYSLMOD DD 

II 

//SYSLIN DD 

II 

//EXEC EXEC 

II 

II 

II 

//SYSPRINT DD 

//SYSABEND DD 



EXEC PGM=IEUASM 



" ASSEMBLE, LOAD , AND GO PROCEDURE 
SYSOUT=A 

unit=disk > space=(cyl / c30 / 10)) / volume=ser=rtosa 

unit=tape,label=(,nl;),sep=(sysuti) 

unit=disk / space=(cyl / (50 # 10)) / volume=ser=rtosb 

SYSOUT=A 
DSNAME=SYSl.MACLIB,DISP=OLD 

UNIT=DISK,SPACE=(CYL,(3, 1)), VOLUME=SER=RTOSA, 

DISP=(NEW,PASS),DSNAME=&LNKFILE 
PGM^INKEDITjPARM^MAPjLISTjLETjNCALjXREFjREUS 1 

-LINKEDIT PROCEDURE 

UNIT = DISK,SPACE = (CYL # ( i t # l)),VOLUME = SER = RTOSA 
SYSOUT=A 
DSNAME=£GOFILECPROG) / UNIT=DISK > DISP=( / PASS), 
SPACE=CTRK / C10,5,1)) / VOLUME=SER=RTOSB 
UNIT=DISK,DISP = (OLD,DELETE;),VOLUME = SER = RTOSA, 
DSNAME=£LNKFILE,DCB=(RECFM=F,BLKSIZE=8 0) 
PGM=". LNK. SYSLMOD 

" EXECUTION PROCEDURE 

SYSOUT=A 
SYSOUT=A 



NOTE: Ref. figure on pg. 4.4.101 



72 



ASSEMBLER 



ASMEC 



//ASM EXEC 
//SY$LIB DD 
//SYSUT1 DD 
//SYSUT2 DD 
//SYSUT3 DD 
// 

//SYSPRINT DD 
//SY$PUNCH DD 



PGM=IETASM 

DSNAME=SYS1.MACLIB,DISP=QLD 

UNIT = SYSSQ / SPACE = (400 # ( t f00 > 50)) 

UNIT = SYSSQ,SPACE = (*tOO, 00 0,50)) 

UNIT=(SYSSQ,SEP=(SYSUT2,SYSUT1,SYSLIB)), 

SPACE = (tf00 > (400 / 50)) 

SYSOUT=A 

UNIT=SYSCP 



LKEDC 



//LK|ED 

//SYSPRINT 

//SYSLIN 

//SYSLMOD 

// 

//SYSUT1 

// 

//GO 



EXEC PGM^FWL^ARM^XREF^IS^LE^NCAL* 

DD SYSOUT=A 

DD DDNAME=SYSIN 

DD DSNAME=&GOSET(GO),SPACE=( 102^,(50, 2 0,1)), 

UNIT=SYSDA,DISP=(MOD,PASS) 
DD UN I T=(SYSDA,SEP=( SYSLMOD, SYSLIN)), 

SPACE = (102it,(2 0,20)) 
EXEC PGM= :; .LKED. SYSLMOD 

SPACE 



ASMECLG 

//ASM EXEC 
//SYSLIB DD 
//SYSUT1 DD 
//SYSUT2 DD 
//SYSUT3 DD 
// 

//SYSPRINT DD 
//SYSPUNCH DD 
// 

//LKED EXEC 
//SYSLIN DD 
// DD 
//SYSLMOD DD 

// 

//SYSUT1 DD 
// 

//SYSPRINT DD 
//GO EXEC 
DATA FOR SDS OR MEMBE 



PGM=IETASM 

DSNAME=SYSl.MACLIB,DISP=OLD 

UNIT = SYSSQ,SPACE = ( i +0 0, (^00,50)) 

UNIT = SYSSQ,SPACE = ( t f0 0,(*f0 0,50)) 

UNIT=(SYSSQ,SEP=(SYSUT2,SYSUT1,SYSLIB)), 

SPACE = (itOO / C / +00,50)) 

SYSOUT=A 

DSNAME=£LOADSET,UNIT=SYSSQ,SPACE=(80,(2 00,50)), 

DISP=(MOD,PASS) 

PGM=IEWL,PARM=(XREF,LET,LIST,NCAL) 

DSNAME=SLQADSET,DISP = (OLD, DELETE) 

DDNAME=SYSIN 

DSNAME=&GQSET(GO),UNIT = SYSDA,SPACE = (102 t t,(50,2 0,l)), 

DISP = <; MOD, PASS) 

UN I T = (SYSDA,SEP = ( SYSLIN, SYSLMOD)), 

SPACE = (102 t f,(50,20)) 

SYSOUT=A 

PGM= -LKED. SYSLMOD 

R 
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COBOL 



THE PROCLIB 
NAME COBEC 



//COB EXEC PGM=IEPCBLOO 
//SYSPRINT DD SYSOUT=A 



//SYSPUNCH DD 
//SYSUT1 DD 
//SYSUT2 DD 
//SYSUT3 DD 



UNIT=SYSCP 

UNIT=SYSSQ,SPLIT=92,CYL,C i *0.10)) 
UNIT = SYSSQ,SPLIT = *t 
UNIT = SYSSQ, SPLITS 



THE PROCLIB 
NAME COBELG 



//LKED EXEC PGM= I EWL, PARM=(XREF, L I ST, LFT) 

//SYSLIN DD DDNAME=SYSIN 

//SYSLMOD DD DSNAME= SGODATA(RUN), D I SP = (NEW, PASS), UN I T=STSDA, ) 

II SPACE = (102if,(50,20,l)) 

//SYSLIB DD DSNAME=SYSl,COBLIB,DISP=(OLD,KEEP) 

//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),SPACE=(102 4,(50,2 0, 1)) 
SYSOUT=A 



//SYSPRINT DD 



//GO 



EXEC PGM= 5 ». LKED. SYSLMOD, COND=(9,LT, LKED) 



//SYSABEND DD SYSOUT=A 



THE PROCLIB 

NAME COBECLG 

//COB 

//SYSPRINT 

//SYSUT1 

//SYSUT2 

//SYSUT3 

//SYSPUNCH 

II 

//LKED 

//SYSLIN 

II 

//SYSLMOD 

// 

//SYSLIB 

//SYSUT1 

//SYSPRINT 

//GO 

//SYSABEND 

DATA FOR SDS OR MEMBER 



EXEC PGM=IEPCBLOO 
DD SYSOUT=A 

UNIT=SYSSQ,SPLIT=(2,CYL, 00,10)) 

UNIT = SYSSQ, SPLITS 

UNIT = SYSSQ,SPLIT=*f 

DSNAME=&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, ) 

SPACE=(TRK,(50,10)) 
EXEC PGM=IEWL,PARM=CXREF,LIST,LET) 
DD DSNAME=SLOADSET,D I SP=COLD, DELETE) 

DDNAME=SYSIN 

DSNAME=eGODATACRUN),DISP=CNEW,PASS),UNIT=SYSDA, ! 

SPACE=C1024,C50,20,1)) 

DSNAME=SYS1.C0BLIB,DISP=C0LD,KEEP) 

UN IT=CSYSDA,SEP=(SYSL IN, SYSLMOD)), SPACE=C1 024, C50, 20,1)) 

SYSOUT=A 

EXEC PGM=-« LKED. SYSLMOD, C0ND=(9,LT, LKED) 
DD SYSOUT=A 



DD 
DD 
DD 
DD 



DD 
DD 

DD 
DD 
DD 
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COMPILE AND CREATE A LOAD MODULE 



0NE 0BJECT INT0 0NE L0AD M 



Hlame Operation Operand 
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COMPILE AND CREATE A~L0AD MODULE NA^ED PRGM0D2 



0NE 0BJECT INJT0 0NE L0AP M0PULE 



Name Operation Operand 
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PROGRAM 


C0MPILE (MULTIPLE) AND CREATE J0NE L0AD M0DULE 




MULTIPLE 0BJECT INT0 0NE L0AD M. 
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Name Operation Operand 
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-«oo,*»C0MPILE (MULTIPLE) AND CREATE L0AD MODULE PRGM0D3 


MULTIPLE 0BJECT INT0 0K1E L0AD M. »»« 




Name Operation Operand 
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p,o e .M, C0MPILE, UNKED1T. AND EXECUTE 



0NE 0BJECT, 0NE L0AD M0DULE 
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— C0MPIL£,UNKEDIT. AMD EXECUTE -MODULE =PRGM0D5 


0IME 0BJECT INT0 0ME LOAD, M0DULE 


DATF 
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p«oo»m C0MPILE F0RTRAN WITH ASSEMBLER i LINKEDIT 


MULTIPLE 0BJECT IMT0 0NE L0AD M. 


DATE 




1 . 


Name Operation Operand 
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FORTHC1 



j^ v SOURCE I x 



x O>> MODULE! x v 
^ SYSIN i 



i 
i 

nI 



(REQUIRED) 



.J 




(FORT) 



FORTRAN 
COMPILE 




&LINKFILE 
DISP=(NEW, PASS) 



, D ECK // \ 

t v J 

i SYSPUNCH » ' 
I (OPTIONAL) | / 
i v 



EXEC PGM=FORTRAN > PARM= l LIST # MAP' 



FIRST COMPILATION PROCEDURE IN FORTRAN H 
STACKED COMPILATION 



//FORT 

// 

// 

// 

// :: 

//SYSLIN DD DSNAME=£LNKFILE,DISP = (NEW,PASS;),UNIT = DISK, 

// VOLUME = SER = RTOSA,SPACE = (TRK,(10,5:>) 

//SYSPRINT DD SYSOUT=A 
//SYSABEND DD SYSOUT=A 



NOTE: Ref. figure on pg. 4.4.101 
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FORTHCN 



«^^x SOURCE^ ^ x 
! N ^v^ MODULE ^ 



* SYSIN i 

,' (REQUIRED) ! 



(FORT) 



FORTRAN 
COMPILE 



-*■*■ 



SYSLIN 



&LNKFILE 
DISP-(MOD, PASS) 



SYSPRINT 




^"object "^ 

, DECK ,'/\ 

f. <, j 

I SYSPUNCH i / 
I (OPTIONAL) ! / 
I V 



//FORT EXEC PGM=FORTRAN,PARM=' LIST, MAP' 

// s: 

// » FORTRAN R COMPILATION STEP--OTHER THAN FIRST 

// » 

//SYSLIN DD DSNAME=&LNKFILE,DISP=(MOD,PASS) > UNIT=DISK, 

// VOLUME = SER = RTOSA,SPACE=(TRK,(10, 5)) 

//SYSPRINT DD SYSOUT=A 

//SYSABEND DD SYSOUT=A 



NOTE: Ref. figure on pg. 4.4.101 
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//FORT 

II 

II 

II 

//SYSLIN 

II 

//SYSPRI 

//SYSABE 

//LNK 

//SYSLIB 

//SYSPRI 

//SYSABE 

//SYSUT1 

//SYSLMO 

II 

//SYSLIN 

II 

II 



EXEC 



DD 

NT DD 
ND DD 

EXEC 

DD 
NT DD 
ND DD 

DD 
D DD 

DD 

DD 



PGM=FORTRAN,PARM= » LIST, MAP 1 

FORTRAN H COMPILE AND LINKEDIT PROCEDURE 



DSNAME=£LNKFILE,DISP=(NEW,PASS),UNIT=DISK, 

VOLUME=SER=RTOSA,SPACE=(TRK,(10,5)) 

SYSOUT=A 

SYSOUT=A 

PGM=LINKEDIT,PARM= , MAP,LET,LIST,REUS , 

DSNAME=SYSl.FORTLIB,DISP=OLD 

SYSOUT=A 

SYSOUT=A 
UNIT=DISK,SPACE=CTRK,(10,5)),VOLUME=SER=RTOSA 

DSNAME=&GOFlLE(MAIN),DISP=C / PASS),UNIT=DISK, 

SPACE=(TRK,(10,5, 1 )), VOLUME =SER=RTOSB 
DSNAME= ». FORT. SYSL I N,D I SP= COLD, DELETE), 

VOLUME=REF=- .FORT, SYSLIN 

DDNAME=SYSIN 



NOTE: Ref. figure on pg. 4.4.101 
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FORTHCL 



SOURCE 



i > 



MODULE V 



^ SYSIN j 

| (REQUIRED) | 

^nI , I 



PARM='LIST / AAAP' 



(FORT) 



i~iy 



FORTRAN 
COMPILE 



&LNKFILE 
DISP=(NEW, PASS) 



SYSPRINT 




SYSLIN 



SYSABEND 



*. FORT. SYSLIN 
DISP=(OLD, DELETE) 

PARM^MAPjLET.LIST.REUS' 



ADDITIONAL OBJECT 
DECKS CONCATENATED 
WITH SYSLIN 




SYS1.FORTUB 
DISPOLD 



&GOFILE (MAIN) 
DISP=(NEW, PASS) 
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//LNK EXEC PGM=LINKEDIT # PARM= , MAP,LET > LIST,REUS I 

// " 

// :J FORTRAN H LOAD AND GO PROCEDURE 

// :c 

//SYSLIB DD DSNAME=SYSl.FORTLIB,DISP=OLD 

//SYSLMOD DD DSNAME= SGOF I LE(MAIN), D I SP=C, PASS), UN IT=DI SK, 

// SPACE = (TRK,O0,5, l)),VOLUME=SER=RTOSE 

//SYSUT1 DD UNIT=DISK,SPACE=(TRK,(10,5)),VOLUME=SER=RTOSA 

//SYSPRINT DD SYSOUT=A 

//SYSABEND DD SYSOUT=A 

//SYSLIN DD UNIT=DISK,V0LUME=SER=RT0SA,DSNAME=6LNKFILE, 

// DISP=(OLD, DELETE) 

// DD DDNAME=SYSIN 

//EXEC EXEC PGM=". LNK. SYSLMOD 

//SYSABEND DD SYSOUT=A 

//SYSPRINT DD SYSOUT=A 

//FT05F001 DD DDNAME-SYSIN 

//FT06F001 DD SYSOUT=A 

//FT07F001 DD UNIT=PUNCH 



NOTE: Ref. figure on pg . 4.4.101 
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FORTHCLG 



t> ^^SOURCE ^ 
I ^OvMODULE ^ v 

^ x 7 SYSIN | 

v >* | (REQUIRED) I 

V x4_ ._^._l 



(FORT) 




PARM='LIST, MAP' 



FORTRAN 
COMPILE 




&LNKFILE 
DISP=(NEW, PASS) 



ADDITIONAL lC~" """^ 

OBJECT DECKS ^ %x % x v ^ _ 

CONCATENATED [ N s Y SIN 

WITH SYSILIN x x fc ■ 



> SYSLIN 



*. FORT. SYS LIN 
DISP=(OLD, DELETE) 

PARM='MAP, LET, LIST, REUS' 



l(OPTIONAL) 
>l , I 



SYS 1. FORT LIB 
DISP-OLD 




&GOFILE(MAlN) 
DISP=(NEW, PASS) 
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FT05F001 



FT06F001 



"T SYSIN I 

I (OPTIONAL) • 
*xL J 



PROBLEM 
PROGRAM 



SYSPRINT 



FT07F001 
UNIT=PUNCH 



SYSABEND 



//FORT EXEC 

// 

// 

II 

//SYSLIN DD 

// 

//SYSPRINT DD 

//SYSABEND DD 

//LNK EXEC 

//SYSLIB DD 

//SYSLMOD DD 

II 

//SYSUT1 DD 

//SYSPRINT DD 

//SYSABEND DD 

//SYSLIN DD 

II 

II DD 

//EXEC EXEC 

//SYSABEND DD 

//SYSPRINT DD 

//FT05F001 DD 

//FT06F001 DD 

//FT07F001 DD 



PGM=FORTRAN > PARM= , LIST / MAP l 



" FORTRAN H COMPI LE, LOAD, AND GO PROCEDURE 

DSNAME=SLNKFILE,DISP=(NEW,PASS),UNIT=DISK, 

VOLUME=SER=RTOSA,SPACE=(TRK,(10,5)) 

SYSOUT=A 

SYSOUT=A 

PGM=LINKEDIT,PARM= , MAP,LET,LIST / REUS f 

DSNAME=SYSl.FORTLIB,DISP=OLD 

DSNAME=£GOFlLECMAIN),DISP = (,PASS;),UNIT = DISK, 

SPACE = (TRK,(10,5,1);),VOLUME = SER = RTOSB 

UNIT=DISK,SPACE=(TRK,(10,5)),VOLUME=SER=RTOSA 

SYSOUT=A 

SYSOUT=A 
DSNAME= JC . FORT. SYSL I N,L I SP= COLD, DELETE), 

VOLUME=REF=». FORT. SYSLIN 

DDNAME=SYSIN 
PGM= :: . LNK. SYSLMOD 

SYSOUT=A 
SYSOUT=A 

DDNAME=SYSIN 

SYSOUT=A 
UNIT=PUNCH 



NOTE: Ref. figure on pg. 4.4.101 
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FORTRAN 



THE 
NAME 



PROCLIB 
FORT^C 



//FORT EXEC 
//SYSPRINT DD 
//SYSPUNCH DD 
//SYSUT1 DD 
//SYSUT2 DD 
//SYSLIN DD 
// 



PGM=IEJFAAAO 

SYSOUT=A 

UNIT=SYSCP 

UNIT=SYSSO,SEP=SYSPUNCH,SPACE=(TRK,(30, 10)) 
UNIT=SYSSQ,SEP=SYSUT1,SPACE=(TRK,(30, 10)) 
DSNAME=&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, 
SEP=SYSPUNCH,SPACE=(TRK,(30, 10) 



THE PROCLIB 
NAME FORTELG 

//LKFD EXEC 
//SYSLIB DD 
//SYSLMOD DD 
// 

//SYSUT1 DD 
//SYSPRINT DD 
//SYSLIN DD 
//GO . EXEC 
//FT02F001 DD 
//FT03F001 DD 
//FT01F001 DD 



PGM=IEWL,PARM=(XREF,LIST,LET) 
DSNAME=SYSl.FORTLIB,DISP=OLD 

DSNAME=&GOSFT(MAIN),DISP=(NEW,PASS),UNIT=SYSDA, 
SPACE = (102'+,(50,20, 1)) 
UNIT=SYSDA,SEP=(SYSLMOD,SYSLIB),SPACE=(1024,(30,2 0)) 
SYSOUT=A 
DDNAME=SYSIN 

PGM= 5;; . LKED. SYSLMOD,COND=(5,LT, LKED) 
UNIT=SYSCP 
SYSOUT=A 
DDNAME=SYSIN 



THE PROCLIB 

NAME FORTECLG 

//FORT EXEC PGM=IE 

//SYSPRINT DD SYSOUT 

//SYSPUNCH DD UNIT=S 

//SYSUT1 DD UNITES 

//SYSUT2 DD UNITES 
//SYSLIN DD DSNAME= 

// SEP=SYS 

//LKED EXEC PGM=IE 

//SYSLIB DD DSNAME 

//SYSLMOD DD DSNAME 

// SPACE=( 

//SYSUT1 DD UNIT=S 

//SYSPRINT DD SYSOUT 
//SYSLIN DD DSNAME= 

// BLKSIZE 

// DD DDNAME 

//GO EXEC PGM= :: . 

//FT02F001 DD UNIT=S 

//FT03F001 DD SYSOUT 

//FT01F001 DD DDNAME 

DATA FOR SDS OR MEMBER 



JFAAAO 

= A 

YSCP 

YSSQ,SEP=SYSPUNCH,SPACE=(TRK,(30, 10)) 

YSSQ,SEP=SYSUT1,SPACE=(30, 10)) 

&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, 

PUNCH, SPACE=(YRK,( 30, 10)) 

WL,PARM=(XREF,LIST,LET),COND=(5,LT,FORT) 

=SYS1. FORT LIB, DISP=OLD 

=£GOSFT(MAIN),DISP=(NEW,PASS),UNIT=SYSDA, 

1024,(50,20,1)) 

YSDA,SEP = (SYSLMOD,SYSLIB),SPACE = (10 2i+,C30,2 0)) 

= A 

".FORT.SYSLIN,DISP=(OLD,DELETE),DCB=CRECFM=F, 

=80),UNIT=SYSSQ 

=SYSIN 

LKED. SYSLMOD, COND=C( 5, LT, FORT), ( 5, LT, LKED)) 

YSCP 

= A 

=SYSIN 
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P,oo,«,BUILD J0BLIB 4 EXECUTE "SEC0ND" M0DULE 


2 L0AD M0DULES 




Name Operation Operand 
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,«oo«AM^uil_D A LOAD MODULE AND EXECUTE USING 


PREVIOUSLY CREATED MODULES 
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ame Operation Operand 
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p^am USE SPECIAL AUTO-CALL SUBLIB 


AND "DSNAME" 0PT10N 


DATE 




Name Operation Operond 
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«°°HUNKEDIT- MULTIPLE 0BJECT MODULES INTO 



ONE LOAD MODULE 



1 


Name Operation Operand 
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«««• MULTIPLE LOAD MODULES -6SE' OF "NAME 
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-gram MULTIPLE LOAD MODULES- 
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«>««. EXECUTION WITH TESTRAN 4 POSTEDIT 
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USE OF ENTRY 
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EXECUTION! WITH TESTRAN 4 P05TEP1T 



IN A SECOND SEPARATE JOB 
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LINK 



<^ 



SYS LIB 



SYS1.FORTL1B 
DISP=OLD 



SYS IN 



(OPTIONAL) ■ „> 

&LNKFILE 
DISP=(OLD, DELETE) 







■ ADDITIONAL OBJECT 
DECKS CONCATENATED 
WITH SYSLIN. 



PARM='MAP, LET, LIST, REUS' 



&GOFILE(PROG) 
DISP=(NEW, PASS) 



SYSPRINT 



//LNK EXEC 

// 

// 

// 

//SYSLMOD DD 

// 

//SYSLIB DD 

//SYSUT1 DD 

//SYSPRINT DD 

//SYSLIN DD 

// 

// DD 



PGM=LINKEDIT / PARM= , MAP # LET > LIST / REUS t 

c LINKEDIT FROM CARD READER AND DISK 

DSNAME=£GOFILE(PROG),UNIT=DISK,DISPC,PASS), 
V0LUME=SER=RT0SB,SPACE=(CYL # (2, 1,2)) 
DSNAME=SYS1.F0RTLIB,DISP=0LD,UNIT=DISK 



UNIT = DISK J ,SPACE = (CYL,(<+,1)),V0LUME = SER = RT0SA 

SYSOUT=A 

UNIT = DISK J> DISP = (OLD,DELETE),VOLUME = SER = RTOSA, 

DSNAME=£LNKFILE,DCB=(,RECFM=F,BLKSIZE=80) 

DDNAME=SYSIN 



NOTE: Ref. figure on pg. 4.4.101 
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LINKEDIT 



&LNKFILE 
DISP=(OLD, DELETE) 




PARM='MAP, LET, LIST, REUS 1 



SYS 1. FORTH B 
DISPOLD 



SYSPRINT 



&GOFILE(PROG) 
DISP=(NEW, PASS) 



EXEC PGM=LINKEDIT,PARM= , MAP,LET,LIST,REUS , 
" LINKEDIT STEP 
DD 



//LNK 

// 

// 

// 

//SYSLMOD DD DSNAME= SGOFI LE(PROG), UN I T = DI SK, DI SP = ( , PASS), 

// V0LUME = SER = RT0SB,SPACE = CCYL,(2, 1,2)) 

//SYSLIB DD DSNAME=SYS1.F0RTLIB,DISP=0LD 

//SYSPRINT DD SYSOUT=A 

//SYSUTI DD UNIT = DISK,SPACE = (CYL,( t t, D), VOLUME = SER = RTOSA 

//SYSLIN DD UN I T = DISKED I SP=COLD, DELETE ), VOLUME=SER=RTOSA, 

// DSNAME=&LNKFILE,DCB=C,RECFM=F,BLKSIZE=80) 



NOTE: Ref. figure on pg. 4.4.101 
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LINKTEST 



&LNKFILE 

D IS P=(OLD, DELETE) 



SYS LIB 



SYS1. FORT LIB 
DISPOLD 




PARM='MAP, LIST, LET JEST' 



SYSPRINT 



&GOFILE(PROG) 
DISP=(NEW, PASS) 



EXEC PGM=LINKEDIT,PARM= I MAP,LIST,LET,TEST , 
"•LINKEDIT STEP WITH TESTRAN 



//LNK 

// 

// 

// " 

//SYSLMOD DD DSNAME= SGOFI LE(PROG), UN I T = DI SK, D I SP=( , PASS), 

// SPACE=(TRK,(10,5, 1 )), VOLUME=SER=RTOSB 

//SYSLIB DD DSNAME=SYS1.F0RTLIB,DISP=0LD,UNIT=DISK 

//SYSPRINT DD SYSOUT=A 

//SYSOUT DD UNIT = DISK,SPACE = (CYL,( i +, 1 )), VOLUME = SER = RTOSA 

//SYSLIN DD UNIT=DISK,DISP=(OLD, DELETE), VOLUME=SER=RTOSA, 

// DSNAME=£LNKFILE,DCB=(,RECFM=F,BLKSIZE=80) 



NOTE: Ref. figure on pg. 4.4.101 
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UNKMULT 



&LNKFILE 

DISP=(OLD, 

DELETE) 



5YSLIB 



SYS1.FORTUB 
DISPOLD 




SYSLIN 



"V*l 

• ! 



-r 



i 




i (REQUIRED) 

' CONTROL 
STATEMENTS & 
ADDITIONAL 
OBJECTS DECKS. 



PARM='XREF, LET, LIST, REUS 



SYSPRINT 



SYSLMOD 



&GOFILE(PROG) 
DISP-(NEW, PASS) 



//LNK EXEC 

II 

II 

II 

//SYSPRINT DD 

//SYSUTI DD 



PGM=LINKEDIT,PARM= , XREF / LET / LIST / REUS f 
: LINKEDIT STEP WITH MULTIPLE INPUTS 



SYSOUT=A 

. . . . UNIT = DISK,SPACE = (CYL,C4, 1 ) ) , VOLUME = SER = RTOSA 

//SYSLMOD DD DSNAME= £GOF I LE(PROG) , UN I T = DI SK, DI SP = C , PASS) , 

// SPACE=(TRK,(8,1,1)),V0LUME=SER=RT0SB 

//SYSLIB DD DSNAME-SYS1.F0RTLIB,DISP=0LD, 

// DCB=(,RECFM=O,BLKSIZE=102*O 

//SYSGO DD UNIT=DISK,VOLUME=SER=RTOSA,DSNAME=&LNKFILE, 

// DISP=COLD,DELETE),DCB=(,RECFM=F,BLKSIZE=80) 



NOTE: Ref. figure on pg. 4.4.101 
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LNKTSTMT 




&LNKFILE 

DISP=(OLD, 

DELETE) 



UNKEDIT 



SYS1.FORTUB 
DISP=OLD 



SYSUT1 



SYSLMOD 







x r 

« SYSLIN | 
I (REQUIRED) i 



CONTROL 
STATEMENTS 
& ADDITIONAL 
OBJECT DECKS 



PARM='XREF # UST, LET ,TEST' 



SYSPRINT 



&GOFILE(PROG) 
DISP=(NEW,PASS) 



EXEC PGM=LINKEDIT > PARM= , XREF / LIST,LET > TEST I 

:c LINKEDIT STEP WITH MULTIPLE INPUTS AND TESTRAN 



//LNK 

// 

// 

// :: 

//SYSLMOD DD DSNAME=£GOFILE(PROG),UNIT=DISK,DISP=(,P ,SS), 

// SPACE = (TRK,(10,5,D),VOLUME = SER = RTOSB 

//SYSLIB DD 



//SYSPRINT DD 
//SYSlJlTI DD 
//SYSGO DD 
// 



DSNAME=SYS1,F0RTLIB,DISP=0LD 

SYSOUT=A 

UNIT=DISK # SPACE=(CYL,(^,1)),V0LUME=SER=RT0SA 
UNIT=DISK,V0LUME=SER=RT0SA,DSNAME=SLNKFILE, 
DISP=(OLD, DELETE), DCB=C , RECFM=F, BLKS I ZE=8 0> 



NOTE: Ref. figure on pg. 4.4.101 
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o 



./ 
/* 



ADD A PROCEDURE TO SYS1.PROCLIB 
1, NAME, MSGLEVEL = 1 
PGM = IEBUPDAT 
SYSOUT=A 

DSNAME = SYS1.PROCLIB,DISP=OLD 
DATA 



ASMFC,OO f O,l 

OOOOOOOO, 00000000, 00000010, 00000010 



< PROCEDURE TO BE ADDED 



ENDUP 



// JOBF 


JOB 


// STEP 1 


EXEC 


// SYSPRINT DD 


// SYSUT2 


DD 


// SYSIN 


DD 


./ 


ADD 


./ 


NUMBR 



CANNOT CATALOG IN A PROCEDURE 

JOB STATEMENT 

DD STATEMENT WITH J0BL1B IN THE NAME FIELD 
DD STATEMENT WITH * IN THE OPERAND FIELD 
DD STATEMENT WITH DATA IN THE OPERAND FIELD 
COMMAND, NULL, OR DELIMITER STATEMENTS 



TEST EDIT 



SYSTEST 



*.EXEC.SYSTEST 
DISP=OLD 



(EDT) 



TESTRAN 
POST-EDIT 




SYSUT1 



SCRATCH 




//EDT EXEC 

/V 

II 

// 

//SYSPRINT DD 

//SYSUT1 DD 

II 

//SYSTEST DD 

II 



PGM=IEGTTEDT 

:: TESTRAN POST EDITOR STEP 

SYSOUT=A 
UNIT=DISK,VOLUME=SER=RTOSB, 
D I SP=(NEW, DELETE ),SPACE = (TRK,C 10 0, 10)) 
DSNAME= ;c . EXEC. SYSTEST, INPUT=DISK, 
VOLUME=REF=». EXEC. SYSTEST, D I SP=OLD 



NOTE: Ref. figure on pg . 4.4.101 



105 



EXEC TEST 



(EXEC) 



PROBLEM 
PROGRAM 



*.LNK.SYSLMOD 




DISP=(NEW, PASS) 



(EDIT) 



SYSUTJ 
SCRATCH 



SYSTEST 



DISPOLD 



TEST RAN 
POST-EDIT 




SYSPRINT 
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//EXEC EXEC PGM= 5c .LNK.SYSLMOD X 

// " x 

// « EXECUTION STEP WITH TESTRAN X 

// " 

//SYSPRINT DD SYSOUT=A 

//SYSABEND DD SYSOUT=A 

//DATAOUT1 DD SYSOUT=A 

//DATAOUT2 DD UNIT=PUNCH 

//SYSTEST1 DD UNIT=DISK,VOLUME=SEP=RTOSA, X 

// SPACE=(TRK,(10 0,10)),DISP=(NEW,PASS) 

//EDT EXEC PGM=IEGTTEDT X 

// " X 

II :i TESTRAN POST EDITOR STEP X 

// " 

//SYSPRINT DD SYSOUT=A 

//SYSUTI DD UNIT=DISK,SPACE=(TRK,(10 0,1)),VOLUME=SER=RTOSA 

//SYSTEST DD DSNAME=".EXEC.SYSTEST,UNIT=DISK, C 

// VOLUME=REF=".EXEC,SYSTEST,DISP=OLD 

NOTE: Ref. figure on pg . 4.4.101 
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p R oo*am MAKE A TEMPORARY CUAt^GE TO A SOURCE MODULE 



ASSEMBLE /LINKEDIT AND EXECUTE 
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Identification- 
73 Sequence 80 
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PROGR am PERMANENTLY UPDATE SOURCE LIBRARY (CATALOGED) 


ASSEMBLE/ LINKED1T/ EXECUTE 
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-o R am MAKE A TEMPORARY CHANGE TO A SOURCE MODULE 



COMPILE /L1NKED1T AMD EXECUTE 
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program PERMAMENJTELY UPDATE 


CbMPILE /LINKEDIT AND EXECUTE 
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proo.*mPERMANENTY update rt-load module 


USING AN OBJECT DECK 




Name Operation Operand 
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program PERMANENTLY UPDATE S0URCE AND 


10AD M0DULE LIBRARIES 




STATEMENT 
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»»»» JCL 
//HPINIT 
// EXEC P 



//SYSPRIN 
//SYSUT1 
//SYSLMOO 
//SYSLIN DD 
BESQ & 
BTXT 8 

__r_T g-r-g- 



^ND OBJECT MO DUL E "TO LINK" EDI T HP I N I f 
JOB 1, STRAUSS, MSGLEVEL=1 
M=L^INKEOlJ, PARM= «NCAL ,L 1 ST, XREF , SC TR ,LE T • 

DD SYSbuf=T " ' 

DD UNIT-231L* SPACED CYL,( 5,5)) 
OD DSNAM£=SYS1.LINKLIB,DISP=0LD 



AHPINIT A- 

_A-(_^)E r € — BA — *Q1 HC A&/KA AL +AQMG — YQ — BG=MO-KQTN,-B 
AGfc-BAW AF&-, AN A$TF£A3~CA£~ W$FD£-DF~D — + L KXOB-00 — BQ 



BTXT W A 

BTXT Q ( A 

"BTXT AT" ) A 

BRLD H 

BEND ! 

ENTRY HPTNlt" 
NAME HPINIT(R) 



)Q) QG E0-= A£ 



Q(-«+GK -00 K /+0B 



A AH 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 



//SPRINTER — JUB" 
//STEP! EXEC 
//SYS PRINT OD 
—rrVKl NTTSHP—BT) "' 
// 
//printer; DD 



T1 ~-r PK mj sYS^m * , m sgl eve l = 1 

PGM=IEFPRT 

SYSGUT=A 
DSNAHE= SY SdUT, UnTT= 1 82 , L ABEL = { , SL )'", D I SP =OLD , 
VOLUME=SER=DYSOUT 
SYSOUT=A 



XX 



•*«# SAMPLE JCL AND CONTROL CARDS TO 
// VARY 192, OFFLINE 
7/ "'"STTfRTt WTR~,Z8Z 
// DISPLAY J08NAMES 



SCRATCH DATA SETS 



//SCRATCH 

t/exscr-rt; 

//DDl DD 
//SYSPRINiT 
//SYS IN DID 
SCRATCH 
SCRATCH 
SCRATCH* 
SCRATCH 
/* 



JOB 1, STRAUSS, MSGLEVEL=i 

EXEC PGM=IEHPROGM~ """ "" "~ ' 

UNIT=23ll, VOLUME = SER==SPSRES,DISP=OLD 
DD SYSOUT=A 

"*" "" ~ ~ " ' " "" "" ' " ' '"' " """ "'"" 

DSNAME=COBOL E, VOL =231 i=SP SRES, PURGE 
DSNAME=FORTRAN£, VOL =231 1=SP SRES, PURGE 

DSNAMF=^YSlTPTlOCrTH,-prEW BER~=r TLTJD 5 , VOL »2 3 1 1 = SPSRES YPURGF 
VrOC, SYS, VOL=2311=SP SRES, PURGE 



**** SAMPLE JCL AND CONTROL CARDS TO ADD A MEMBER TO PROCLIB 
//IEBUPDA T JOB 1 , STRAUSS,MSGLEyEL=l 

//SYSPRINT OD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PR0CLIB,DISP=0LD 

TASYSTN"- ;0U TTATA " "" 

./ ADD CTLCDS,0i,0, 1 

PUNCH TY!PQRG=PStMAXFLOS = l !> ST0PAFT = 1C0 

./ ENDUP 

/* 



**»* JCL TO EXECUTE HIGH COMPUTE JOB 
//HIGHCOMP JOB i, STRAUSS, MSGLEV£L = 1 

TrTUHCTB DU~ USNAMfc=FTJKTR15tfre7TJT5P = (OL D7FA 5 ST, VOL UME =R E F ="5Y5T75VCTT B 
//EXHICO^P EXEC PGM=HIGHCOMP 
//FT06FOOI DD SYSOUT=A f DCB={ RECFM=UA, BLKSI ZE=136) 

«*** JCL TO EXECurE HIGH 10 JOB 
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//HIGHIO JOB I, STRAUSS, MSGLEVEL*! 

//JOBLIB DO DSNAME=C0B0LE,DISP*<0L0,PASS),V0LUME=REF=SYS1.SVCLIB 

//£XHIH) _§ X „ E 9 PGM=HIGHIO 

7/WRROOffE DO U"NIT = i9i;SPACE=(CYL,(25, 10)) 
//WRROTWO 00 UNIT=i9i,SPACE=(CYL,<25,10)) 
//WRITEONE DO UN IT=( 180, , DEFER ) ,LABEL=< ,NL ) 



//WRITETWO OD UNIT* I 181, , DEFER ) ,LABEL=( ,NL ) 

»*»» SAMPLE JC L AND CONTROL CARJDS TO PUNCH TAPE 
77 T PTOPCH JUB 1 , S T R AU S S , M S GL EV E L = 1 
//PUNCH EXEC PGM=IEBPTPCH 
//SYSPRINT DO SYSOUr=£ 



//SYSUT1 DD UNIT=< 18TrTDEFER),LABEL = ( ,NL ) , V0LUME=SER=123123 , C 

// DCB=(RECFM=F,BLKSIZE=80) 

//SYSUT2 DD UNir=O0D,DCB = (REC FM=F, BLKSrZE^80) 

//SYSTN DD DSNAME=SYSlVPROCL[BTCTLCOS),DiSP=OLD 

**** SAMPLE JCL AND CONTROL CARD S TO PRINT TAPE 

//IPTGPR1 JOB 1, STRAUSS ; M S GL EVET^I 
//PRINT EXEC PGM=IEBPTPCH 
//SYSPRINT DO SYSOUT=A 
-"//3Y5UT1 ~TJD UNir=(T83r,DEFER ) ,LABEL= r,NL)TVOTru~ME=SER=ABCABr, C 
// DC6=IRECFM=F,BLKSIZE=80) 
//SYSUT2 DD UNIT=00E,0CB=(RECFM=F,BLKSIZE*80) 
//SYS1N — DTJ — US N AM E=5T5T .PT*TJCl~I B C C TLCDX) ,DI SP=OLD 

•*•* SAMPLE JCL AND DATA TO GO CARD TO TAPE 
// I BGETCETT ^OB" 1 75TTRAUSS7MSGL EVET3 1 
//CDTOTAPE EXEC PGM=IEBG£NER 
//SYSIN DD DUMMY 

//SYSUI2 DTT-Ulsl FT =T 2 4 013 ,TDEFER),LABEL = (,NL),DCB = (RECFM=F,BLKSIZE=80)~ 

//SYSPRINT OD SVSOUT=A 
//SYSUTL DD * 

DATA CARDS PLACED HERE " " 

/* 

*«*« SAMPLE JCL AND CONTROL CARDS TO LIST VTOC "" " " ~ "~ 

//IEHLIST JOB I, STRAUSS, MSGLEVEL=i 

//LIST EXEC PGM^IEHLIST 

//SYSPRINT DO SYSOUT=A 

//DD1 OD UNIT=23ii,VQLUME=SER=SPSRES,DISP=0LD 

//SYSIN DO * 

_ L1STVT0C DUMP,V0L = 231L = SPSRES 

LISTCFLG 
LISTPDS DSNAME=SYS LL INKL IB, VOL =231 1=SP SRES 
T* " "" 

»»**JCL AND O BJECT MODULE TO LINK EDIT HIGH COMPUTE JOB 
"7/FORDEMO JTJB~r,3TRAUSS,MSGLEVEL = l 
//LKED EXEC PGM=LINKED IT, PARM= «XREF,L I ST« 

//SYSLMOD DD OSN AME=FORTRANE( HIGHCOMP ) ,D I SP = { ,KEEP) , C 
n 5TAC£=(CYL,( 5, 5, 1) ), VOLUME =REF = SYSL. SVC LI B 
//SYSUTl DD UNIT=231i,SPACE=<CYL,(5,I)> 
//SYSLIB DD DSNAME=SYSl.FORTLIB,DISP=OLD 
//SYSPRINT DD SySOUr=A~ " ~ ..--...._. 

//SYSLIN DD * 

BESD £ AMAIN= MAIN0001 

"BTSTJ E MAIN AH A MAIN0062 

BTXT F( D A MAIN0003 
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BTXT 

BTXT 
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BRLO 

BTXT 

BRLD 

BEND 
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GY 
GO 
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BQ 
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BM 

BY 
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CI 
DD 

BTXT HDD 
BTXT DO 
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B INVERT B 

B A* F( 
A M 



I 



BA£ A- A6 



MAIN0D04 
MAIN0005 
MAIN0006 



ABF++HFS B-( HNPUT MATRIXS B-D0R0W£CS B-D CGL&C-C T0SCMAIN0007 
AF+++FS B-&HNVERTED MATRI XSB-HRE-I NVERTED MATRIXS B-A0MAINQ008 

* - /0«»»»» I NVERS IO NS CO MPLETED »««»« -AO -AOS MAIN0009 

~A~ 



"H> A" AT Hfi A A) "HM A A) HQ 



F-A A£ FYA A£ FMA A£ 



CIBCOM= B 
A F-6 - F-£ 
T A* H« AA) 
A £ 

AQGH*E Q(A- Q&-6H&&-DQ GU 

AOO FM$0 F~QQ£ F 8GAQ6 "F 1 G/8 GDQ> FM.- BQOH-T OF— TOF • Q £G DG1 8 
AQ-FM.- BQ0H~)0FO-T0F «Q£GDG18 G)Q-FM.- BQOH-)OF — TOF • 
A A- AQOF-Q FQQ&G8GB& A- AQOF-Q FMQ6G4GB& Q£G-G1G_ Q0H»E_O 
A E G&A A£ FMA A& FQQ-FM.- BQ H-) T— "-G E OHDF 
AQOF-Q FQQtiH GB6 A- AQOF-Q FMQfcG'GBS E 06QQH»E OD 

G0£ FUA A£ FMQOH*E OD F G (E 

F QOF $0F-Q£G GJQ F£T G~~QOH*E 

F Q F#£ FQQ-FM.- BQ H- ) F G E 



MAIN0010 
MAIN0011 
MAIN0012 



MAIN0013 

MAIN00I4 

FQ MAIN0015 

G*HMAIN0016 



AE O&Q 

~m G8£ 
AE OHD 
AQi»HHGB& E 
AA- AQOF-Q 
AE 00 F 
AA&HNQOF(E 

A A J TD A 

AE O&A- AAO 
AMAIN 



FME 0£Q 



MAIN0017 

MAIN0018 

•A- AMAIN0019 

F GQMAIN0020 

G4£ F«MAIN002i 



OHD 
Olf " 

OHDF »A- AQOF Q FQMAIN0023 
OfcQOF ~OG4£0F*QOF*-OG»£OF Q0F»$0F-Q6GUGAQ6GY GAMA IN0024 
FMQ£Ht)GB£ Q0FU-0G4£0FGQ0FU$0G Q^Gi^AXrfiGllGTQ0HiT^rNX)CJ25 
G-E O£A£H)Q0F<E G TQ£GMGlQOH»E OD F GUE 0&MAIN0026 
G XQ£GMG1Q0H»E OD F G» MAIN0027 

AT H A" AT^l'll nr"A"~Ar +-~a~A) +8 A A) + MA1N0028 

04E00000 



EQ FYQ&GOGB& QOH*E 



HO 

1= 

HF 

A AT 

A A( 

A A( 



H-<- JQGOQGOHU 
+Y H+ H, IF HH + £ +D -H I 



+ M H 



T- 



H+ 
FOT 

an 

G0( 



HO 
F4( 
GY 
G4( 



I) 
F8( 



IM 
F«( 



16 

G ( 



K 
GDI 



G8( GM H ( HD) HH 



MAIN0029 
MAIN0030 

roMAiNoir3i 

MAIN0032 
MAIN0033 

Girr'GTTTrrnsTTT-xra* g»> g-maikoU34~ 

MAIN0035 
MAIN0036 



A A) - 



AINVERT= 

INVERT AHA 
A 
B CLOCK B 

8 A* A* 
A AA& AS 
AB^»OSTNGUL"AinTY 1ft 
A-0 I =&C-E J =£CS 
AHB+HB-H SECONDSS 

'"A""" i L " 

CIBC0M= B 
AC AM6 A& 

— 7TA7 "BM C~ A* "BU A~A~) 



MAIN0037 
MAIN0038 
MAIN0039 
TNVIMO 



TPIP;OT M A TRTX~-N~3T]B MATRIX ~ATL 
B-/ TOTAL MATRIX CALCULATION 



TERT3ES" 
TIME = 



BTT 



M£DA£BMQ0A*E G A8 
■"Ua"0~WCFA^-" B"QOB 



INVE0002 

INVE0003 

INVETTO04~ 

INVE0005 

INVE0006 

TNVE0007" 

INVE0008 

INVE0009 

rNvEOOIO 

INVE0011 

INVE0012 

I N VEOO 1 3 
INVE0014 

A»0 A8INVE0015 
YUJ&=T 



A+ + 

A£fc,Q&Q<A- QE-£H&£-DQ-& KC — KC 

AA AS A«Q A^QO«.£ BEE MQ A^fcE ""Ua"0~T"CFA"~^- B^QOBTUA^^T - ~TNl'VC0T5iS" 
A — B«8W0 OWO-AHQ A«£ A Q A»& ADQ6 MQOA .0 BQOB ) 0AF-3-0BM NVEOO 17 
A8X& 0W8 AH=FQ£A(G1Q- MQ&A .& BQOB ) 0AF-L-£B*8V- OWO-AH INVE0018 
-A1TTS- QOin""OnBErG"TTQ ADGG~DA^ AQO -Q""ATKTKBXJGTrr A- AQO^XT^" INVE001T" 
AQ^BIGBE 8 AH2 QSAUG/QOBUE OD F AYE OHD A»E OHO A«E 0&INVE0020 
AQ4A«.S BQE MS ADQ0AD$0A 'QSAYGJA A& A Q- MQ&A'.t BQOB INVE0021 
AI0AB-L-£B»8V- 3W0-A )Q0AD. BQOB ) 0AB-3-0B*8G- OE- 8 ~AJ '" TNVEUO^T 
AOG- A- AQO -Q A Q€iB4GB£ Q&A'.S BQE U£ A QOA $OA«Q£AOGJ INVE0023 
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BT XT 

Bl XT 

BTXT 

BTXT 

BTXT 

Bl XT 

BTXT ~ 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

Brxr 

BTXT 
BTXT 
BULO 
BTXT 
BTXT 
BTXT 
BTXT 
"BTCCD""' 
BRLD 
B*LD 
BRLD 
BTXT 
BRLD 
BCN1T 
BESD 
BTXT 
BEND 

NAME 
/* 



DW 



EM 

E + 

EB 

E8 

EO 

FY 

F- 

EO 

E) 

GD 

G» 

G4 

G& 

GS 

HQ 



A- 
AQ 
A- 
BY 



AA M ADQ- MQ&AD^ BQOB ) 0A=-L-GB»8V- 3WO-A)QOAD.O BQOB I 
A)GAB-3-OB»8G- OE- 8 A ) OG- A- AQO -Q ADQSB8GBS A AS A I 

AQOA $0A«QSA4GAQ- MQSA*.S BQOB ) QA=-L- SB*8V - 3WQ0A .0 B I 

AQ0B"|5A--3-0B»8G- •FOG- A- AQO -QA QSB'GBS A AS A A AI 
AS ADQOA $0A»QSA8GAQ0AD$0A»QSA8GAQ- MQSA . £ BQOB )0A=-L I 
A-£8*8V- QOA'.O BQOB ) 0AF-3-0B* ' X- QSA . S BQOB )OAF-C-SB*I 
AOT- OY- A- AQO \ -Q ADQSBDGBT A- AQO -Q A QSBSGBS A AS ADI 
AQOADSOA'QSA'GAQ- MQSA'.S BQOB ) 0AF-L-£B»8V- QOA».Q BQOB I 

A)0A=-3-0B*»X- OV- A- AQO -Q ADQSBHGJ^S jB^SQj^QSM ^B I 

AQQB lOA^L-SB^V- 0-A88-A8»V- 0-A8,W8V- Y A FOE-" A- A I 
AQO -Q A'QSBYGBS Q -S A «QOA «$0AQS0A «Q A»K QSA-GJQ£A*.S Bi 
AQE MS A QOA $GA »Q£AMGJA _ AS ADQ- MQSAD.S BQOB )OA=-L-SB»I 
"A8E- AjQOAD.0 1 BQOB )0AB-3-0~B*8X- 3W0V- 8 A JOG- A- AQO -I 
AQ ADQGBJGBS QSA'.S BQE US ADQOAD$OA »Q£A)G JA AS A Q- M I 
AQSA'.S BQOB )0AB-L-£B*8E- A)QOAD.O BQOB ) 0A8-3-0B*8X- I 
A)0G- A- AQO -Q A QSB-GBS QSA >GIA£BQQGA*E G I 

BYS-B0K3EQG 0F1W0-AQ8 AQ2 QSAMGAQOBUE 001 



NVE0024 
NVE0025 
NVE0026 



NVE0027 
NVE0028 
NVE0029 



NVE0030 
NVE0031 
NVE0032 



NVE0033 
NVE0034 
NVE0035 



NVE0036 
NVE0037 
NVE0038 



A3W0V- 8 A)0G- A- 
AQGASS0AMSTS-B4Y- 
A F B4E OHD AQE OSQS 
"AXNV"ETrr~H^T^T^"0QGOB8 
A A) C( A A) HM 



QQ-S KG- -Q- *Q(-*Q -) K -)G= 



NVE0039 
NVE0040 
NVE0041 



B- 
GU 
HH 
84 

x at 

A A{ 
A At 
A AT 



HU 
GY 
HU 
C8 
X-i 
AM( 
AH( 
BYT 



FH 
. Fr _. 

C 

AU( 
AQ( 
A)( 
BT ( 



C( 

DO 



DW 
XYT 



A»( 
A-) 
BOT 



CO 
DH 

DS 
"AIT 
A ( 
AM 
B4( 



C 
DS 

EL 

AOT 

AU( 



D( 
_„_ 

EO 



A4T 
AY( 



DO 
ES 

JL B 
A8T 

A( ( 



ES 
E8 

FU 



A« ( 
A0( 



ES 
F2 

G 

"AST 
A4( 



F6 

G- 

GS 



G 



H+ 
DW 



I 

I 

GS I 

EMI 
I 
I 



NVE0042 
NVE0043 
NVE0044 
NVE0045 
NVE0046 
NVE0047 



AD( 
A8( 



AH( 
A* ( 



A)) 
AS) 



B8I BM BS( BD( BH( BTT'B-" 



A A| - 

ACLOCKSUB 
AGOO+ECLOCK- 



A- 1 

ADI 

__I 

T 

I 

I 



NVE0048 
NVE0049 
NVE0050 
NVE005T 
NVE0052 
NVE0053 



SCLOCK A A 
(-)A OSS HS DQ AS A+.Q) 



DQO-QQOO S Q(-)G= 



NVE0054 
0001 

0002 

0003 



HIGHCOMP(R) 



**** JCL AND SOURCE TO COMPILE HIGH COMPUTE JOB 
//FORTSOUR JOB I, STRAUSS, MSGLEVEL=1 
//FORT EXEC PGM=l£JFAAA0,PARM=•SIZE=43C00 , 
//SYSPRINT DO SYSOUT=A 

UNIf=2540-2 

UNiT = 231l t SPACE^(CYL,( 5, 1)) 

UN!r-2311«SPACE-(CYL v ( 5, 1)) 



//SYSLIN DD 
//SYSUT1 CD 
//SYSUT2 00 

//SYS IN DD * 

DIMENSION 
C 
C 

c 
c 



A( 20, 20 ) 



DEVELOP INPUT MATRIX 

UPPER TRIANGLE-8, LOWER^l, MAIN DIAG0NAL=6 



INMTRX 
INMTRX 



INMTRX 

INMTRX 



10 



H = 20 
CHANGE THE b IN THIS 
DO 30 LIMIT- It 5 
DO 12 I=l,N 
00 12 J=1,N~ 
IF( I-J)9, 10, 11 
AC I, J )=&. 
GO TO 12 
A(I,I)=6. 



DO TO CONTROL THE NUMBER OF REPI Tt TI ONS » "" * " * : V » " « 



INMTRX 

INMTRX" 

INMTRX 

INMTRX 

I NMT RX 

INMTRX 
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GO TO 12 INMTRX 

11 A(I,J)*1. INMTRX 

12 CONTINUE INMTRX 



GO TO 29 
C INMTRX 

C READ INPUT MATRIX INMTRX 



~C" ~ ~" '"""""' " ~" "~~ ' "~ INMTRX 

13 READ(5,14)UAII,J),J^l,N!>, 1 = 1, N) INMTRX 

14 FORMAT ( 10P8.6) _ INMTRX 

'C""" "" ~""~" "" " " ' ' " " " " "" " " TNMTRX 

C INVERT THE MATRIX TWICE. PRINT THE INPUT MATRIX AND BOTH INMTRX 

_C INVERTED M ATR ICES. _ __ _ INMTRX 

C ~ " "" "" " "" ~ INMTRX'^ 

29 WRIT E( 6, 15) INMTRX 

15 FORMATC 1INPUT MATRIX') _ INMTRX 

KNT=0~~ "'" ~" ~" " " " " INMTRX 

16 DO 22 1*1, N INMTRX 
WRIT E( 6, 1711 INMTRX 

IT" ~ TOftWATT^aftdW*, I3J ~" "~ " ■" "INMTRX 

J 1=1 INMTRX 

JN=a<) JNMTRX 

18 1^(^^)20,20,19 "INMTRX 

19 JN-N INMTRX 

20 WRITE(6,21)Jl,JN,< A( I,J),J*J L,JN) INMTRX 

"ZT "njRBTAT ( ' COL *7 1 3, * TO i • , T3iY6FT6Zbl FNIMTRX 

J1=JN+1 INMTRX 

JN=Jl+9 

"rfiJ'l-NUdt 19,22 INMTRX 

22 CONTINUE INMTRX 
KNT=KNT+l INMTRX 

~ IF (KNT-2J 23,25, 27 ~~ ' "'" " 

23 WRlTE<6,24) INMTRX 

24 FORMAT (• i INVERTED MATRIX* ) INMTRX 
CALL INVERT(N,AI INMTRX 
GO TO 16 INMTRX 

? 1 j WRITE(6,26) INMTRX 

26 FORMAT (• IRE- INVERTED MATRIX 1 ) INMTRX 

CALL INVERT! N v A) INMTRX 

GO TO 16 INMTRX 

2( WRITE(6,2'8) INMTRX 

28 FORMATI'O'/'O***** INVERSIONS COMPLETED »***»•/' •/• • ) INMTRX 

30 CONTINUE 

STOP ■' ■ ■ 

END INMTRX 

SUBROUTINE INVERT(N,A) 

DIMENSION A(20,20),L(20),MC20) 

CALL CLOCK! IT IMES ) 

0*1.0 

DO 80 K=l,N 

L(K)=K 

M(K)=K 

BIGA=A8S( A(K,K)) 

DO 20 I=K,N 

DO 20 J=K,N 

I F( BIGA-ABSI M I, J ) ) ) 10, 20, 20 
10 8I6A-ABSI A( I, J) ) 

L(K)=I 

M(K)=J 
20 CONTINUE 
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IF (BIGA)21,21, 24 

21 WRITE(6,22)K,K 

22 FORMATPOSINGULARITY 


C 
C 


$ • I =•, 13, • 

ROW INTERCHANGE 


C 


24 J=L(K) 

IF(J-K)35,35, 23 



1H INPUT M ATRIX •_/ « S UB MATR I_X A L L _Z£ ROES • / 



25 DO 30 1=1, N 
HOLD=-A(K, I) 
A(K, I)=A( J, I) 



30 AU,II*HQLD 
C 
C INTERCHANGE COLUMNS 



c 


35 


I=M(K) 

IF( I-K)45,45,37 


f 


c 
c 


37 

40 


DO 40 J=1,N 
HOLD= -A(J,KI 
A( J,K)=A( J, I) 
A(J, UPHOLD 

DIVIDE COLUMN 


BY MINUS PIVOT 


c 


45 
46 
50 
55 


DO 55 1=1, N 
IF(I-K) 50, 55, 
"ATl",K7^TT,Ta/T 

CONTINUE 


50 


c 


-A(K,KM 


c 
c 


56 
57 


REDUCE MATRIX 

DO 65 1=1, N 
DO 65 J=l7N 
IF(I-K) 57, 65, 
IFU-K) 60, 65, 


57 

60 


c 


60 
65 


A( 1, J!* AC I,K)»A(K,J)€A( I, J) 

CONTINUE 


c 

c 




DIVIDE ROW BY 
DO 75 J=1,N 


PIVOT ELEMENT 




68 
70 
75 


IFU-K) 70, 75, 70 
A(K,J) = A(K,J)/A{K,K) 
CONTINUE 


c 
c 




CONTINUED PRODUCT OF PIVOTS 


c 
c 
c 


80 


D=0»A(K,K) 

REPLACE PIVOT BY RECIPROCAL 

A(K,K)-1.0D0/A(K,K) 
CONTINUE 


c 
c 
c 




FINAL ROW AND 


COLUMN INTERCHANGE 




100 


K=N 
K=K-1 
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tFlKi 1*0, ISO, 103 

103 t«L(KI 

IF(t-K) 120, 120, 105 
105 00 110 J»1»N 

H0LD«A(J,Kt 

A( J,K)=-A(J, I) 

110 A(J f l)=HOLD 

120 



J*H<K) 
IF(J-K) 



100, 100, 125 



125 00 130 I* UN 
HOLD*A(K, II 

-AU.I) 



aw 



A(K, I) 
A(J,i) 



150 



HOLfr 
GO TO 100 
CALL CLOCK (ITIHE) 



77 



ZDEiTA = ITIME - ITIMES 
IF (ZDELTA1 77,88,77 
WRITE (6, 999 J ZOELTA 



"9~9T 

88 



FORHAI 
RETURN 
END 



(• TOTAL MATRIX CALCULATION TIME = *,-2PF8.2,* SECONDS* > 



~m 

//ASSEM 
//SYSLIB 



EXEC PGM=IEUASM 

DO DSNAME=SYSL.MACL IB,DISP=OLD 



//SYSPRINT DO SYSOUT=A 

//SYS PUNCH 00 UNIT* 2540- 2 

//SYSUTl DD JNIT=23ll,SPACE=(CYL,(5,l)) 

//SYSUT2 



//SYSUT3 
//SYSIN 



00 
00 



TTNTr=^3 1T,TPACE=( CYL , ( 5, 1 ) J 
UNIT=23ll,SPACE=(CYL,(5,l)) 



CLOCKSUB 



CTOCK 



SI ART 
ENT RY 
USING 
"S"AVE~ 
LA 
ST 

"ST 

LR 

TIME 
T" " 
L 
L 



~o 

CLOCK 
«, 15 

TT*7I2~)77"*~~ 

14,SAVEAREA 

14, 8( 13) 
~r374TT4~) 

13, 14 

BIN 

T3, ^rriTi ~~" 

3,2410,13) 
3,0(0,3) 



LOAO 
NEW SAVE 
0X13 "SAVE" 
NEW SAVE 



NEW SAVE AREA AOORESS 
A ? E A AD ?? If? °!: D ? AV ! AR f A 
AREA AOOR TO REGISTER 13 



RT5T0W TTEirfSTeR 
PARAM LIST ADR IN R3 



13 



TI 0,0(0,3)" 

RETURN ( 14,12) 
OS 18F 

'END "■'"""■ 



SAVEAREA 



/* 



**"*» JCL and 

//COBDEMO 

//LKED 

//SYSttflHT 

// 

//SYSUTl DD 

7T5YSTTB DD 

//SYSPRtNJr DD 
//SYSLIN DD 
BESD "" £ 

BTXT $ D 



OBJECT WO'OUCE" 



ED"IT~fTlGH""TD JOB - 



TO LINK 
JOB I, STRAUSS, MSGLEVEL=1 

EXEC PGM^INKEDIT.PARM^XREFaiST 1 

DD" DSNAHE=COBOL £( HIGH 10 ) ,01 SP»T ,KEEP) , SPACE^TCTL, (5 ,5 ,i ) ) , 
VOLUME=REF=SYSl.SVCLIB 
UNIT = 23ll,SPACE=(CYL,( 5, i) ) 
" OSTIW!E"=SYS'r.XCrBUTB , 01 SP^DTD 
SYSOUT-A 

ARDWRDEMO 
A AT 



RDWR0002 
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"BTxr 

BTXT 
BTXT 
"BTXT 
BTXT 
BTXT 

im — T 

BTXT 1 
BTXT T 



U A A RDWR0003 

Y 8 axxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxrdwrooo4 

Q AXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXRDWROOOS 



8 AOOOO 

% ) A t —/t 

- A A 



RDWR0006 
RDWR0007 
ROWR0008 



A/ — .— 
A 



RDWR0009 
ROWRO01O 
RDWROOil 



BTXT M 
BTXT A) 
BTXT A4 



AB 

A 

AB 



A& WRRDONE B HH 



A& WRROTWO B HH 



ARDWR0012 

RDWR00L3 

AR0WR0014 



BTXT AT 

BTXT AM 

BTXT A) 

"BTXT 



A A & 

A 

A A & 



A 

AB 

A 



A£ WRITEONEB HH 



RDWR0015 

AROWR0016 

RDWR0017 



BTXT 
BTXT 
BTXT 
BTXT 
BESO 
BESO 
BESD 
BESO 

"BTXT 
BTXT 
BTXT 
BTXT " 
BTXT 
BTXT 

"BTXT 
BTXT 
BT XT 



A4 
B( 
BQ 

BH 



TD~ 
C« 
£» 

E( 
E4 

TF" 

DD 



8 

Y 

8 

~B~ 

£ 

L 
I 

"B~ 
D 
H 

~W 
H 
H 

~D~ 





A A AB A6 WRITETWOB HH ARDWR0018 

A A £ A A A £ A A R0WR0019 
ABR F B ELAPSED TIME WRITE PHASE TOTAL LOGICAL RECORDS WRDWR0020 

ARITTEN - ELAPSED TIME READ-WRITE PHASE TOTAL LOGICAL RECRDWR0021 

AORDS READ AND REWRITTEN -END OF DEMONSTRATION RDWR0022 

BIHD02301B R0WR0023 

CIHD02302B 



0IHD02304B 
EIHOO30O1B 



RDWR0024 
RDWR0025 
RDWR0026 



U CY X£ AF 5 — QO£E$/ *-+ 



0£ A 



C4 



R0WR0027 
RDWR0028 
RDWR0029 



RDWR0030 
RDWR0031 
RDWR0032 



RDWR0033 
RDWR0034 
RDWR0035 



BTXT 


DH 


D 


A 






BTXT 


D) 


D 


A 






BTXT 


D£ 


D 


A 






BTXT 


DM 


U 


A 


£ 




BTXT 


DQ 


D 


A 


- 




BTXT 


D) 


D 


A 







BTXT 


D- 


D 


A 







BTXT DM 
BTXT DQ 
BTXT D*~ 
BTXT D 
BTXT OU 
BTXT ""DY~ 
BTXT 0( 
BTXT DO 
^TXT — D4~ 
BTXT D8 
BTXT D 1 



BTXT D« 

BTXT E4 

BTXT TT 

BTXT DM 



RDWR0036 
RDWR0037 
ROWROQ38 
ROW RO 039 
RDWR0040 
RDWR0041 



A £ 

A - 
"A — W 

A £ 

A - 
A 

A 

A £ 



RDWR0042 
RDWR0043 
RDWR0044 



RDWR0045 
RDWR0046 
RDWR0047 



RDWR0048 
RDWR0049 
RDWR0050 



A - 

A 

A 



RDWR0051 
RDWR0052 
RDWR0053 



^TXT^ 


D£ 


D 


A A 


BTXT 


DD 


D 


A A£ 


BTXT 


DH 


D 


A A- 


BTXT 


DJ 


D 


A AG 



RDWR0054 
RDWR0055 
RDWR0056 



A EY 
A-(-)Q 

A FF 



Q£ D£ HQ G »G C4Q» HQ/AL )++£L HQKQ02YE A£ 
0£ A£0£+L A£ MQO£0£ Q J A £A4££0£K' 0£A£0£+ LA£A4Q0£0E 



~RDWR00t>7 
RDWR0058 
MRDWR0059 
Q/RDWR0060~ 
RDWR0061 
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BtXf 
BTXT 

_BJXT 
BfXf 
BTXT 
BTXT 

"BTXT" 
BTXT 
BTXT 

btxt 

BTXT 
BTXT 



D D A FQ " ' '"" RDWR0062 

EU 8 APC £ £K) 0Q02UE Q l»Q IQQ IHQ0IMG=Q02 <E 3D 8 -Q02YE K £ RDWR0063 
f* : _JL _ A Y 3 " YAE HQO^OE QJA£A4QO£OE Q/O £B KDO= £8B0MBQ9D0=0MRDWR0064 

"D'flP Q~" A"" F-" " ~ """'" " "' " RDWR0065 

OU D A F( R0WR0066 

D» D A FO RDWR0067 



FM 8 ATS&1 ~6*'<re"lTG*(iTrYe' , "QO2YlE"''062UE"'Q TUQ" IQQ" lMQ01WG»'C02~fE A£RbWR0068~ 

DO A F( RDWR0069 

F) 8 A M&&0&K 0£J £tQ£lYG)Q-£K-£K£-£)A6A4££0MK£0MJ £,QOl(G.Q-RDWR0070 

W D ~ A F+ " R0WR0071 

FD 8 A£).-£K£-£)A£0£+MA£ MQ020E A£A4Q020E Q02UE Q 10Q 1MQ 1-Q£RDWR0072 

DY__ D A G _ _ _ _ RDWR0073 

BTXT DC 1 D "A G£""" " ' '"" "" " RDWR0074 

BTXT F« 8 A1-G«Q02(E KH Y 83D 8 -Q02UE Q 14Q LMQ 1-Q01-G=Q02 (E Q02URDWR0075 

BTXT DO_ D A GH RDWR0076 

BTXT 04 T""D " A GW RDWR00 77 

BTXT G4 8 AE Q 18Q l-Q nQ£l)G»Q02(E Q02UE Q 1«Q 1MQ i-QGl-G=Q02 ( E RDWR0078 

BTXT D» _D A G4 RDWR0079 

"BTXT E T~D~~ X"'"5B~'" " ~ "~" '"" RDWR0080 

BTXT G< 8 AQ£2 G« ) OC ) )0E) OE ) - UAWAITING REPLYO I UIEP00RDWR008 I 

BTXT D8 D A G£ RDWR0082 

BTXT fiU 8 AOQ QIUIEP990D E £HIHD02901GOQ£2HA-£H£-0 KQ£ B-A££RK. £ QRDWR0083 

BTXT G* ! 8 AA££)Q1Q£2D$1 0£ +TKDO& £K„08 A .080SE-N 080 Q02)G=K RDWR0Q84 

BTXT ED D A HM RDWR0085 

"BTXT TW I "B AD-K+ HG9Q£2HA-£H£-0 K £ B9A££ K+£ HA££.QTQ£2D4I 0"£ +TQ0RDWR0086 

BTXT DY A H£ RDWR0087 

BTXT H) I 8 A2YE A£ M££G£K£0£A£0£+LA£A4££0£K£0£A£0£+LA£AM££0£K 0£A£0£RDWR0088 

BTXT HD ! 8 A+LA£AMQ0£OE Q1A£A4££0£K 0£A£0£-»-LA£A4Q0£0E QAPC £ £K) DQ0RDWR0089 

BTXT EH i D A HK RDWR0090 

BTXT D( i A HU RDWR0091 

BTXT TJ& D AQ018 RDWR0092 

BTXT DO D A HO RDWR0093 

BTXT H* 8 A2UE Q 2£Q IQQ 1MQ£ 1MG«Q02( E 30 8 -Q02YE IHG=Q02YE AE MR0WR0094 

BTXT E) D A I£ RDWR0095 

BTXT E£ A fW RDWR0096 

BTXT H4 8 AQ-7M£-0£K6£/0JQ0£GE QJQ02QG=K1 iKK» 1LKI l+KHl. Q£l »G • K L RDWR0097 

BTXT 04 ! D A 10 RDWR0098 

BTXT DO D AQQl£ R0WR0099 

BTXT 08 D A r£ RDWROiOO 

BTXT U 8 AA£AMQ0£0E QIO £BQQ02YE D 1)G=Q02YE A£A4Q-2*£-0£KB£/0 JQORDWROiOi 

BTXT EM A fO RDWR0102 

BTXT EQ D A 1= RDWR0103 

BTXT 0* D A I* "■ RDWR0104 

BTXT IU 8 AfiOE Q/002-G=Kll+K41. Q£L4G«K £ - A£A4Q0£0E QAO SBQQ02YE RDWR0105 

BTXT OH D AQ018 R0WR0106 

BTXT D£ D A IY R0WR0L07 

BTXT E* A (£ RDWR0108 

BfXT I* 8 AD l-G=Q02YE Q02UE Q 2UQ IQQ 1MQ01MG=Q02 (E A£ M££0£K 0£J RDWR0109 

BTXT E- D A IY RDWR0110 

BTXT EU A +♦ RDWROlll 

BTXT IM 8 A£,Q£2YG)Q-£).-£K£-£)A£A4££0MK OMJ £,Q02 (G. Q-£) .-£K£-£) A£RDWR0 1 12 

BTXT EY A +( RDWR0113 

BTXT +) 8 AAM££0QK OQJ £, Q£20G )Q-£ ) •-£K£-£) A£A46£0*K£0* J £, G024G. Q-RDWR01 14 

BTXT E( ; A ♦♦ RDWR0U5 

BTXT +D 8 A£).-£K£-£)A£0£+MA£ MQ020E A£A4Q020E ASAMQ020E A£A4Q020E R0WR0U6 

8TXT EO A +M RDWR0117 

BTXT +• 8 AQ02UE Q 28Q 1MQ 1-Q£ 1~G«Q02 ( E KH Y 83D 8 -Q02UE Q 2«Q 1MRDWR0118 

BTXT E4 D A += RDWR0119 

BTXT E8 A +» R0WR0120 
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-wncr 

BTXT 
BTXT 



♦4 8 AQ i-Q0i-G=Q02(E Q02UE 2 Q l-Q 1)Q£1)G «Q02 <E Q02UE Q 20RDWR0121 

E« D A +0 R0WR0122 

»( 8 A Q 1MQ l-QOl-G-Q 2< E Q&2HA- £H£-0 K)£ BRAGS K. £ QA££ )Q1Q £ RD WR_01 2 3 

E D A .M RDWRO 124 

.U 8 A2d$l 0£ +TKDO£ SK.08 A .080£E-N 080 Q£2HG»K D-K+ H09R0WR0125 

.♦ 8 AQ£2HA-£H£-0 KZ£ B7A£££K+£ HA££.Q1Q£2D$1 06 +TQ£2HA-£H£-RDWR0126 



BTXT 
BTXT 
BTXT 



BTXT 

BTXT 

BTXT 

3TXT 

BTXT 

BTXT 



00 
.M 
EO 



A .£ 

AO KLS 
A .0 



B/A££MQIQ£2D$1 0£ + TQ — 0Q(-)$ G*Q02YE 2T0* (2T0M 



RDWR0127 

•RDWR0128 

R0WR0129 



. ) 8 A9S0=0M002)G, 231Y »230 (* IYO 3 

)0 8 AO K+0 19M00+M J 1GK 180 230 
EH A ) 



•1Y00 
•0 180 



Q£2£GMU18B$P 
K 1Y18230 (* 



RDWRO 130 

1YRDWR0131 

ROWRO 132 



BTXT 
BTXT 
BTXT 



E) 
)4 



BTXT 
BTXT 
BTXT 
BTXT 
BTXT 
BTXT 

irrxr 

BTXT 
BESD 
BTXT 
BTXT 
BTXT 
BRLO " 
BRLO 
BRLO 
BRLO 
BRLO 
BRLD 
BRLO 
BEND 
BESD 
BTXT 
BEND 
NAME 



E£ 
)( 
EM 

~nr 

EQ 
DH 
TiT 
D) 



TM" 
D- 
U 



E4 



8 AO 3 • 1Y00 2HY 

A )Q 

8 AG, 211Y 0210 £ = 



0=01YBQ3 01Y00 «2J0= £2J0M 09 J0=0MQ02MR0WR0133 

ROWRO 134 
IYO 3 01YO0 *Q£2QG«8118B$210 00 180 K RDWR0135 



A 1« 
A1Y 18210 
A CO 



AOH 89J0=0MQ02*G» 
A (0 

A i+ 

TV 



ROWRO 136 
£* IYO 3 01YOO =211Y 8=01YBQ3 81Y00 92J0* Y2JRDWR0137 

RDWRO 138 
211Y 82TT5 Y^~~1Y0 3 8 1 YO 9 Q £2 HS • BTTSBTRD W RO 1 39~ 

RDWRO 140 
RDWR0141 



A2T0" 
A 14 
FGETTIME B 



80 180 K 



A 02TO£ •K£0"8"T~E" 

A (- 

A2YE 

orc'i DAI DE 

A AI D1I D5I 09 
A AC D-( DM( DQ 



18210 Y= IYO 3 81Y00 9Q02 YE KA Q 8KA $RDWR0142 

RDWRO 143 

RDWRO 144 

080£KD 09Q02YE A£ -££0£K£0£A£0£Q024E Q0RDWR0145 

RDWRO 146 

RDWR0J.47 

f Oir D( I DjrONI ORI D)I D/I bVI DZH D RDWR0148 
I DM DAI DEI DII D(I OJI DNI DRI EO DIRDWR0149 
( D»( D ( DU( DY< D(( D0( D4 ( D8 ( DM D£RDWR0150 



A A( DD( DH( 0) 

A A( D8( DM E 

A A( E( ( E0( E4 

B A* E» C A* E- 

A <- 

AGETTIME 8 
A-T-)E07T~G££ m~ 
A 



< D- < ~D"MT~D~QT 
( ED( EH( EX 
( E8( EM E ( 
D A* EU E A» 



D*( D ( 
E£( EM( 
ED( EH( 
"EY F A» 



"DDT 
EQ( 
E)( 
E< 



"DYT 
E*( 
E£( 



_TT 

E-( 
EM) 



DO) 
EU) 
EQ 



W Q/A£ B + .QT- £ £ Q) DQT-)G=" 



D4RDWR0151 

EYRDWR0152 

RDWRO 153 

RDWRO 154 

RDWRO 155 

0001 

0002 
0003 



HIGHIQ(R) 



T* 



««*» CLIP DECK AND SAMPLE CONTROL CARDS 

D (8B (8- £B +H- £ ~ '""'" " ~" " 

E-Q£ — £ K$=H£ BQA ££M ££~H£ HA-A H- A.££UG £SB-£Q£0 8A££,££ M*0 ££0 HQ £MQ-£-AO 

H) £ GO£K£ £Q* £ G£6£B £-B £QJ EG££WR £ G££+KG- £ -TG0£KQ££DG5 £BEND B (8 

" W * OS" T" EO " 0000 

DO DS E+ £0 ME0Q05+J 0001 

5£ G£0 -85£ KC5£ MA-00H6 BIO 0G£i«K7G 1+AW )G00UPE5Y5Y-C50B 5HM 5£NA5652G£ 0002 

0£QC50KA5652GiaA-n^~03-G00Ht05,GW^ r£KG~85GQ8 0003 

5£B 8G0i£) G£l=GOl,J = DGO it KC5*5DJB- G£ 1KKA5Y-BG03) 8M 5£* G£0WG-0D 0004 

K350KA5PG£2-0A- 0£5£G02 GOISJB DG£3YJA DG£3UG01QJ( DG£1-JD DG£lBA£lBM0- 0005 

NA-B5 YGO 1 £K A5Y52G8J£ 5£G£ ) J 5£G£ 1 M '•' 9G01 S J £ DG £0DK1 50K05P J £5 £G£3 K05 OM 0006 

5£E£1(G02BG02FK 2F2FH£ 0M£2 ) I£0KG£2FD 2£A£4SA-5NA0 CA-0£E 2MD 24D 28D 2= 0007 

K 2 2 B 5£ G -85 (K 2Q5- KL2D 8KA5,-BKG2Y5 PG5 5 GJJ385 ( KL_ 820K^ 5 -2 Q _ 0008 

0™21&ir£^0KA2=-BE TMD 240 2 80 2 = G8 "~~0009" 

NA-B2=G010G014NA-B2=G026KA2=52A£1BG010J EG01£ 000 0G016KG Q3YKG 03- 0010 

KG 830 P 8 8G01Q AW AD£0 ME0Q02-J 5£G£3*-85£KC5£ MKM50KW5PG010 0011 

C8~GU50GOlSNA-806Gd3(J0- G£ 1YE£20J75YG03 J 5YG£3 JH5YG03WG01 SG03 (H£ 0012 

50AH A £50.£48G-1SD 2£0 44J 4 G£3+A£4+E 2MD 24D 28D 2=Q85£G1G03 (G04 G030 0013 



124 



G034G038G03« GC 3YKB5 >5NG01Y£0 MGQ£QKB5DKB5YA-0DG05S£0 MG0££KB5DKI 5YA-0£G0 0014 

it)G04+A0 FA-5YAJ QG05£KD5YG05S£0 MG0££KB5DA-r5«A0 AAJ MG05&G0 0015 

G04Q0B50K 4 A-04G05S K 49A- AO AAJ DG05£Q00 £0 MG0£YK+49KB 0016 



5S£0 MG04YKB5! 
4,0B5DK 4 



5YG04+£0 MG0£MG04 KX5YG04BE0Q004£ 55££ 84 5£G£5£D 0*-856KC5£ 

0G06HM'- - 50K 5DQ£ 8G01» EY F 

AD-T5YNA5Y52 



G05U-5CKC 
D 



H5 



H£F 



KG 



Gl 

AW 

Q5-KG 



MG058KA5052 
A1AB OIOA 



£ £QS3QCA-£+ 
0£OG0£S£0 »B 



85YD 0£KC5£50KE0£54KA5652G05£ 
I £05 M06-0 5£G05+H£5 KHG£6Q F BH6 BG05£ 

NPi G _ £6 i|?. & _y M _A *L°JL I D-CAN AF £)Q-£QG2NA£ GBNF £ G2C0£ 

£* 7 AF" LTKOEOAC; B £5MkC5+5*kG Y50E0* J££5D0-5«Q£54QJ A-40Q058KE50A 

4)EA$WA-4|MA0 AA-0+0£40R£ 5H600*N 46G00+Q-5«G00 A FA£46Q£50EAQ-N 5 GOO£KK 
50J-5»G£4)$ M 5»— £-58G»A-4)KU50E9A 04H £FI HC £HG=R£5)G000KK50N 5HG£4) 



G£3£-H£ 
$$JH G£3 

H04iTE V2TSr--44£-5DP~5~-3^0On^ 5*E-4SB 58 AO A 

E 42E 0+G04HA-4)KU50E9G04*$SQ£54CT5-A0 >*S$CE,H< +1- HC ( IG»H 5*A£5 SDA£ 

)Q£54K G£4«$E-.Nfc£ £ GCF 4($E-« 5=KE£ £ G2KG Q5HA-5NA0 HA 4YQ£50QJ EA 

B 5£ "■■"'■ '" " " ~"~ 

£ AF LPAAO G AF LKD WAIT FU 

£ B5LCBICSBESDBTXTBREPBRLDBENDBLDT ) ) ) £ H7 

E0Q00 + $,~£ ffdt^QN ££GS»HA OAJ £A£6UEA0£~£ T G3- «QN -MG£«6A DA) MA£6UEA0£ 
•M£A £G0»BG0«6KA«4=»KC=2»2A0«8£0 H££«MAO»££0 •) £ G0«0£ • • £ B «£I£ 0G£ 

8JD OG£ , WNF , A« IG£«Q £°QA 0- «M£ »MA QQ£»M$£KP£ »*Q0»4G £ GH 

H f (8L0AD2 GH RESUME G TTTfi H 

) 01 00 IF 

£ A D £ D* 

8 AEGKG 81WKG -30 + ..KG Ql/A- BK+I ,'K (15A-2F "-TO ST 4-46K 2 ^WTZ 
8 AA 1,+£NC2 2FG£04NC2S2FG£0 ND2W2FG£0KQ-1 WA£2 < £10KI1»KQ15 

8 A+£8 I KB2H2.2T2Q2.Q-1WA i +£F-02G00YKE 1*2 ) F-02G00YK 2»G0 

8 A04Q-2GJ 2,G£10A l6Q-20KBlOKGl+iO+-KAru2DKGl+l' KC"I0"+-KE2S 
8 A4 KU»A-2R -10K615Q-IWA 1,+£KE4 l^KAl (2DKG1+1 WQ-20A 16+- 

8 AKE22l=KIl,K£15Q- 1WA 1,A-2Z-10+£B 1 KE4 1=Q-20A 1F+£A 1 + 

I " "A+£ A T6+£ GOTO' ' " " " " "" ' 

8 AB J8B J 8 £0G JO 

AK K£ HF M* EM* B KH- 

- AA H*- £1 KH I 



•6B 

D (£ 

BENO 

BESD 

BTXr 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 

BTXT 



£~ 
£8 
£0 
£7 
£ 

J (2 
J£- 

J- 

JQ 
J- 
KH 
KQ 
K£ 
KH 
K£ 
KB 
LO 
LY 
LQ 
L4 
L( 
LO 
HO 



A, 
A 
A 
A 



Fl 

( 

) 



J8 



EH 
A 



J£ 



- AG 

B 



- A 



OISKTAPELABEL 
OLD 10 = 



CONTROL STATEMENT ERROR ERR 

NEW ID '= 

A-)32Q)3,NA4, SG£3£NA40 SG£2FNA42 SG£3FNA44 SG£32B 3 -)3, 
AQI32B -£ H£» A) 0£( A) DKG£ A) HJ£ DG£ 24A, HG02-JH 
A A, HG02-Q HG8£ H) - G03+* - G-3K) -T03-6 3YGHJA 0G£ 
A3+GH£ H) - £ H» - G03=G£3+E-3Q ) - G03+GHJB 0GIG03SA 3W 
AQHE£2FE£3FKG4W -KG -3 QDG8P ) 3232A£20KG Q30A£46G8 

A KH B IODD LO D~ " 

A 

A 

A " ' 

A . ) £ ~ 



0017 
0018 
0019 



0020 
0021 
0022 



0023 
0024 
0025 



A DA£5Hd£50EAQ-Q f E*Q Q£58R-G£0SJG5=G£GS-$££58G00-B» HQAH£ H * F-F££58$W 0026 

G=R£5-G012A-10M 5HN 5HG£1UJ£5«G»KA50NC5HG 4)NB5HG 12H05+E 42B-5HE ,Q2-05H 0027 

A- 1 E9 E 0! +K D50R G04 1 G 'B * HHO _H f F G^M_5^ A- 1 SE 9E^ 0+Q£H- 4«BB5-B-5HQ-5HRKG£ 0028 

l-$KB*~ifl£ H * TG»$/LKG01)B-5)Q-5lA 1, G00FA-4)KU5OE9H-4=BB5-AS A -4*E 0+ 0029 

Q£G01)A- £H£40$KG£0+K 5 5£ £40G0 1BR£5MG02+B-44H040A-2£J£5 •G£2M$£G02-H04* 0030 

E 42EtQS^ 44£ 44Q — PK050R 5(G 2 R£5»G-4) J£5»G£2UH-5*A0 ) Q£54KSG£2«*S$CR« 0031 

TT^rn b«G 2=K~TmttT=7r5T£~ 5DG~9^Bir2GK ~3"G-^T5^G~030A Fa£46C£50eA£ 44 CR552 

A BA£4=q£50EA 4=A£5 AO BJH5«G£2«E-2FA DQ£50EAQ£44 £ M75«N,£ G«0H5«AH 0033 

B££44-$G02=A-2+G02+R£5*G03WJ£5 G)A 5 HO KA50K3G£4)E 42E»QBH0 BK3G£4)E 0034 

42 E, QKH£ 36H-3-F"3, -VQlQBJ ) G 3F"*$B05B"0(-6-F" 036 3-QO -9K 5£0 Q 5£JB 0035 

5£K 5£ £36 -3-E 3,$WJA G£3+-VG 30A£ DH 40$EG ( 40G=$HG03H- t 0036 

iQ-t$$J0 G£3Q-,$$G030R£5 G04,$SN 45G£4SB-44 J£5 »G£4SM 5«J£5»G£4- 0037 



0038 
0039 
0040 



0041 
0042 
00^43 



TRJ44 
0045 
0046 



0047 

0001 
OUST 
0003 
0004 
~ffOD"5 
0006 
0007 



UGW 
0009 
0010 



0011 
0012 
0013 



0014 
0015 
0016^ 
"0017 
0018 
0019 



1TO215 
0021 
0022 

0024 
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BTXT M8 
BTXT MO 
BRLD 



BRLO 
BEND 
BLDT 



AVOH 
A 

A_A( 
A AH 



JACK BLOMQUIST 

JU( J(( J4I J9I JAI JI I JRI J/I JZI J1I JRI J/) L» 



0025 
0026 
0027 



LZ 



0028 
0029 



0ISK=191 

LABEL*SER=222222 

TAPE=282 



LABEL=SER=ABCABC 

//WRITETWO DO UNlT«t 2400, , DEFER ) ,LABEL*( ,NL) 



//WRITEONE 00 
//WRRDONE DD 
//WRRDTWO_ DD 
7/SYSUT2 DO 
//SYSIN DD » 

//SY SUT1 DD UNir=I24Q0,, DEFER), LABEL=(,NL),V0LUME=SER=123123, 
//SYSPUNCH 



UNIT=M 2400,, DEFER), LABEL = ( ,NL) 
UNir=23ll,SPACE=(CYL, ( 25, 10) ) 
UNIT=23L1,SPACE=(CYL,(25,10)) 
UN I rr* 2540-2 f DCB=( RECFM=F , BLKSl ZE = 86T 



UN I T= 2 540- 2 
UNIT=2540-2 



~ dtt 

//SYSPUNCH DD 
//SYSUT2 DD SYSOUT=A,OCBHRECFM = F, BLKSI ZE*80J 

"773Y5UTT" DD UNir-X2400,, DEFER >,LABEL=(,NL ITVC)LUME*SER=ABC"ABC"," 
//SYSIN DD « 
//PRINTER DD SYSOUT=A 

~~PDlTCFTYT5imi^T5rS7ff AXFTD3= T, STOPAFf =ICO 

RECORD FIEL0=(80, 1, , i) 
/* 



// SHIFT 1 

//PRINTAP DD UNIT=C282,, DEFER), DISP=OLD, VOLUME =SER=ABCABC , 

**"** 3AM"PLE~JC"r TO PRINT SYSO'uT TAPE 

//IEFPRT JOB 1, STRAUSS, MSGLEVEL^l 

//PRINT EXEC PGM= IEFPRT 

//PRINTAP DD UNir=( 282,, DEFER ),0ISP=0LD, VOLUME =SER=ABCABC 

//PRINTER DD UN IT=00fc, DCB=( RECFM=F , BLKSI ZE=80) 

// START RDR,00C 

-/ ADD CTLCOXtOlf 0, 1 

PRINT TYPORG=PS,MAXFLDS=i,STOPAFT=100 
RECORD F I EL 0-180* I, , I) 
/* 



7/ VARY 192, ONLINE 

♦»*• SAMPLE OPERATOR COMMANDS 

// START RDR, L82 



«»«» JCL AND SOURCE TO COMPILE HIGH 10 JOB 
7/ COBS 'OUR JOB 1, STRAUSS, MSGLEVEL = 1 
//COBOL EXEC PGM=IEPCBLOO 

//SYSPRINT DD SYSOUT*A 

UN IT =23 II, SPACE = (CYL,( 5, 1)) 

UNir=231l,SPACE=(CYL,( 5,1)) ,DI SP= (NE W,KEEP) ,DSNAME=A 

UNir=23lt,SPACE=(CYL,( 5, 1) ) 

UNir = 231l,SPACE=(CYL,( 5, 1)) 
* 

IDENTIFICATION DIVISION. 
PROGRAM- ID. • RDWROEMO ■ . 
ENVIRONMENT DIVISION. 



//SYSUT1 DD 
//SYSPUNCH DD 
//SYSUT2 DD 
/7SYSUT3 DD 
//SYSIN DD 
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CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM- 360 E3C. 
OBJECT-COMPUTER. IBM- 360 E3C. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT WR-RD-ONE ASSIGN "WRRDONE" UTILITY. 
SELECT WR-RO-TWO ASSIGN *WRRDTWO» UTILITY. 
SELECT WRITEONE ASSIGN •WRITEQNE* UTILITY. 
SELECT WRITETWO ASSIGN •WRITETWO* UTILITY. 
SELECT CARDIN ASSIGN! »CARDIN» UTILITY. 
DATA DIVISION. 
FILE SECTION. 
FD WR-RD-ONE 

RECORDING MODE IS F 
LABEL RECORD OMITTED 
DATA RECORDS ARE RECORD A. 
1 RECOROA PICTURE X(80). 
FD WR-RD-TWO 

RECORDING NODE IS F 
LABEL KFCQRD OMITTED 
DATA RECORDS ARE RECORDS. 

1 RECORDS PICTURE X(80). 
FD WRITEOME 

RECORDING MODE IS F 
LABEL RECORD OMITTED 
DATA RECORDS ARE RECORDC. 

01 RECORDC PICTURE X(80). 
FD WRITE TWO 

RECORDING MODE IS F 
LABEL RECORD OMITTED 
DATA RECORDS ARE RECORDD. 

1 RECOROO PICTURE X(80). 
FD CARDIN 

RECORDING MODE IS F 

LABEL RECORD OMITTED 

DAI A RECORDS ARE RECORDE. 

01 RECORDE PICTURE X(80). 
WORKING-STORAGE SECTION. 

01 PERFORM-TIME. 

02 PEREURM-TYPE. 

03 FILLER PICTURE X(13). 
03 PERFORM-COUNT PICTURE 9. 
03 FILLER PICTURE X(6). 

02 PERFORM-TERMINAL PICTURE X(7). 

02 FILLER PICTURE X(4) VALUE * AT ». 
01 DAY-TIME. 

02 DEC-TIME PICTURE X(4). 

02 FILLER PICTURE X VALUE • ». 
01 FILLER REDEFINES DAY-TIME. 

02 PACK-TIME PICTURE S9(9) COMPUTA TIONAL-3. 
01 HOLD-CARD PICTURE XI 80) VALUE ALL «X«. 
01 CARDS-READ PICTURE 9(4) VALUE ZERO. 
01 RECORO-COUNT PICTURE S9(9) COMPUTA TI ONAL-3, 
01 RDWRCOUNT PICTURE ZZZ,ZZZ,999. 
01 FORMAT-TIME. 

02 FUR-HOURS PICTURE 99. 

02 FILLER PICTURE X VALUE • •. 

02 FOR-MINUTES PICTURE 99. 

02 FILLER PICTURE X VALUE • • . 
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02 FOR-SECONDS PICTURE 99.99. 

02 FILLER PICTURE X VALUE • •. 
OL COMP-TIME. 

02 COMP-HOURS PICTURE 99. 

02 COMP-HINUTES PICTURE 99. 

02 COMP-SECONOS PICTURE 99V99. 

02 FILLER PICTURE X. 
01 DISPLAY-TIME PICTURE S9(9). 

01 FILLER REDEFINES DISPLAY-TIME. 

02 HOURS PICTURE 99. 
02 MINUTES PICTURE 99. 

02 SECONDS PICTURE 99V99. 
02 FILLER PICTURE X. 
PROCEDURE DIVISION. 
START. 

OPEN OUTPUT WR-RD-ONE. 

OPEN OUTPUT WR-RD-TWO. 

MOVE ZEROES TO RECORD-COUNT. 

PERFORM GET-TIME. MOVE PACK-TIME TO DISPLAY-TIME. 
WR I IE-RECORD. 

MOVE HOLD-CARD TO RECORDA, RECORDS. 

WRITE RECORDA. 

WRITE RECORDS. 

ADD 2 TO RECORD-COUNT. 

IF RECORO-COUNT , 04999 GO TO F INI SH-WR I TE-PHASE. 

GO TO WRITE-RECORD. 
FIN IS H-WR (TE-PHASE. 

PERFORM GET-TIME. 

CLOSE WR-RD-ONE, WR-RD-TWO. 

PERFORM TIME-FORMAT. 

MOVE DISPLAY-TIME TO COMP-TIME. 

MOVE PACK-TIME TO DISPLAY-TIME. 

PERFORM TIME-FORMAT. 

PERFORM ELAPSEO-TIME. 

PERFORM TIME-FORMAT. 

DISPLAY 'ELAPSED TIME WRITE PHASE • FORMAT-TIME UPON CONSOLE, 

MOVE RECORD-COUNT TO RDWRCOUNT. 

DISPLAY 'TOTAL LOGICAL RECORDS WRITTEN -• RDWRCOUNT UPON 
CONSOLE. 
RD-WR-PHASE. 

OPEN INPUT WR-RO-ONE. 

OPEN INPUT WR-RD-TWO. 

OPEN OUTPUT WRITEONE. 

OPEN OUTPUT WRITETWO. 

MOVE ZEROES TO RECORD-COUNT. 

PERFORM GET-TIME. MOVE PACK-TIME TO DISPLAY-TIME. 
BRANCH-2. 

GO TO RD-WR-ONE. 
RD-WR-ONE. 

READ WR-RD-ONE AT END ALTER BRANCH-4 TO PROCEED TC BRANCH-3, 
ALTER BRANCH-2 TO PROCEED TO E INI SH-RD-WR-PHASE , GC TO 
BRANCH-3. 

MOVE RECORDA TO RECORDC. 

WRITE RECORDC. 

ADD I TO RECORD-COUNT. 
BRANCH-3. 

GO TO RD-WR-TWO. 
RD-WR-TWO. 

READ WR-RD-TWO AT END ALTER BRANCH-3 TO PROCEED TO BRANCH-2, 
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WRITEONE, WRITE TWO. 



PHASE • FORMAT-TIME UPON 



AND REWRITTEN -• 



GO TO BRANCH- 2. 
MOVE RECORDS TO RECOROD. 
WRITE RECOROD. 
ADO 1 TO RECORD-COUNT « 
BRANCH-4. 

GO TO RD-WR-ONE. 
FINISH-RD-WR-PHASE. 
PERFORM GET-TIME. 
CLOSE WR-RD-ONE, WR-RD-TWO, 
PERFORM TIME-FORMAT. 
MOVE DISPLAY-TIME TO COMP-TIME. 
MOVE PACK-TIME TO DISPLAY-TIME. 
PERFORM TIME-FORMAT. 
PERFORM ELAPSED-TIME. 
PERFORM TIME-FORMAT. 
DISPLAY 'ELAPSED TIME READ-WRITE 

CONSOLE. 
MOVE RECORD-COUNT TO RDWRCOUNT. 
DISPLAY 'TOTAL LOGICAL RECORDS READ 

RDWRCOUNT UPON CONSOLE. 
DISPLAY 'END OF DEMONSTRATION* 
STOP RUN 
EL APS ED- T IHE. 

IF COMP-SECUNDS NOT , SECONDS, 

SECONDS, ELSE COMPUTE SECONDS 

SUBTRACT I FROM MINUTES. 
IF COMP-MINUTES NOT , MINUTES, 

MINUTES, ELSE COMPUTE MINUTES 

SUBTRACT I FROM HOURS. 
IF COHP-HOURS NOT , HOURS, SUBTRACT COMP-HOURS FROM HGURS 

ELSE COMPUTE HOURS = 24 + HOURS - COMP-HOURS. 
T IME-FORMAT. 

MOVE HOURS TO FOR-HOURS. 
MOVE MINUTES TO FOR-M INUTES. 
MOVE SECONDS TO FOR-SECONDS. 
GET-TIME. 

ENTER LINKAGE. 

CALL »GETTIME» USING DEC-TIME. 

ENTER COBOL. 



UPON CONSOLE. 



SUBTRACT COMP-SECGNDS FROM 

= 60 + SECONDS - COMP-SECONDS 

SUBTRACT COMP-MINUTES FROM 

= 60 + MINUTES - COMP-MINUTES 



/» 

//ASS EM 
//SYSLI 
//SYSPR 
//SYSPU 
//SYSUT 
//SYSUT 
//SYSUT 
//SYSIN 
GETTIME 



EXEC PGM=IEUASM 
B DD OSNAME=SYSl.MACL IB,DISP=0LD 

INT DD SYSOUT=A 
NCH DD JNII =231 I, SPACE=( CYL , ( 5, 1) ) ,DI SP= (NE W,KEEP) ,DSNAME=B 

UNIT=23LI,SPACE = (CYL,( 5, I)) 

UNIf=2311,SPACE=(CYL,( 5,1) ) 

UNIJ=231L,SPACE=(CYL,( 5, 1) ) 



DO 

DD 

DD 
DD 
START 
ST M 
BALR 
USING 
LA 
ST 
ST 
LR 
LR 
TIME 



14, 3, 12( 13) 
3,0 
*,3 

t4,SAVEAREA 
14, 8 C 13) 
13, 4( 14) 
13, 14 
2, i 
DEC 
It 0(0 9 2) 



TIME0001 

TIME0002 

TIME000 3 

TIME0004 

TIME0005 

TIME0006 

TIMEOOor 

TIME0008 

TIME0009 

TIMEOOiO 

TIMEOOil 
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ST 


0,0(0, 1) 


L 


13, 4< 13) 


LM 


14,3, 12( 13) 


BR 


L4 


SAVE ARE A DS 


18F 


END 


GETUME 


/» 





TIME0012 
TIME0013 
TIME0014 
TIME0015 
TIME0016 
TIME0017 



IEB400I END OF DATA FOR SOS OR MEMBER 
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STUDENT PROBLEM 1 

SYSTEM UTILITIES 

This exercise is designed as a work project. It is to be coded on the normal coding form 
but not punched up to be executed, 

A. Using "IEHPROGM" perform the following: 

1. Construct a catalog on WORK01 with the following specifications: 

a. Build three levels of index (i. e. , A. B. C) 

b. Catalog four data sets using four unique serial numbers 

c. Connect your catalog to the one residing on SYSRES 

2. Draw a "picture" of what your catalog structure should look like. Include in 
your "picture" of all the necessary catalog control entries. 
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IEHPROGM -STRUCTURING A CATALOG ON WORK01 



CO 
CO 



//REK9 
//STPA 

//DD1 

// 



JOB 

EXEC 

DD 



//SYSPRINT DD 

//SYSIN DD 

CATLG 
CATLG 
CATLG 
CATLG 
CONNECT 



'CLASS 6016 1 , PRGNM,MSGLEVELS=1 
PGM-IEHPROGM 

DSNAME=SYSCTLG,VOLUME=SER=WORK01,UNIT=2311, 
DISP=OLD,SPACE=(TRK,(5,5)) 

SYSOUT=A 



DSNAME=A. B. C. D, VOL=2311=WORK01 
DSNAME=A. B. C.E,VOL=2311=WORK01 
DSNAME-A.B.C.F.VOL-2311-WORK01 
DSNAME=A.B.C.G,VOL=2311=WORK01 
INDEX=A,VOL=2311=WORK01 



/' 



CO 



SYSCTLG 
ON SYSRES 



VICE 



CVOL POINTER TO SYSCTLG 
ON WORK 01 FOR INDEX A 



SYSCTLG 
ON WORK 01 




INDEX POINTER 
TO INDEX A 



INDEX A 




INDEX POINTER 
TO INDEX B 



NDEX B 




NDEX POINTER 
TO INDEX C 



INDEX C 




DATA SET 
POINTER TO D 



DATA SET 
POINTER TO E 



^ 



DATA SET 
POINTER TO F 



DATA SET 
POINTER TO G 



N. 



\ 



\ 



\ 



N> 



VOLUME SERIAL 



DEVICE TYPE 



STUDENT PROBLEM 2 
DATA SET UTILITIES 

A. Using "IEBPTPCH" perform the following: 

1 . Read data cards from the reader (00C) and print them on the printer (00E) 

NOTE: This operation may require another job step prior to the execution 

of IEBPTPCH I 

B. Using "IEBGENER" perform the following: 

1 . Read data cards from the reader (00C) and put them on tape. 

C. Using "IEBCOPY, IEBUPDAT", and "IEBCOMPR" perform the following: 

1 . Copy any member from SYS1 .PROCLIB to a data -set for which you have 
allocated space. 

2. Change a record within your copied member. 

3. Compare the original member against your changed member. 

4. Use the unequal compare exit and type on the console some indicative message. 

5. Make provisions for deleting your data-set at the completion of the compare step, 
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IEF403I REKUT1 STARTED 

IEF236I ALLOC. FOR REKUT1 STPA 

IEF2371 SYSIN ON OOC 

IEF236I ALLOC. FOR REKUT1 STPA2 

IEF237I SYSUT1 ON OOC 

00 IEC107D E 191,SYSRES,SYS1.PR0CLIB 

REPLY 00, 'U f 

IEF236I ALLOC. FOR REKUT1 STPC1 

IEF237I SYSIN ON OOC 

IEF236I ALLOC. FOR REKUT1 STPA3 

IEF237I SYSUT1 ON OOC 

IEF233A M 1 82, SCRTCH, REKUT 1 

IEF236I ALLOC. FOR REKUT1 STPA^f 

IEF237I SYSUT1 ON OOC 

IEF236I ALLOC. FOR REKUT1 STPB 

IEF237I SYSIN ON OOC 

IEF236I ALLOC. FOR REKUT1 STPB1 

IEF237I SYSIN ON OOC 

IEF236I ALLOC. FOR REKUT1 STPB 

IEF237I SYSIN ON OOC 

IEF236I ALLOC. FOR REKUT1 STPC 

IEF237I SYSIN ON OOC 

THIS MESSAGE IS THE RESULT OF AN UNEQUAL COMPARE 
BETWEEN SYSl.PROCLIB(DICK) AND KEATON(D I CK) . 

IEF236I ALLOC. FOR REKUT1 STPC2 

IEF237I SYSIN ON OOC 

00 IEC107D E 191,SYSRES,SYS1.PR0CLIB 

REPLY 00, 'U' 

IEF2361 ALLOC. FOR REKUT1 STPC3 

IEF237I SYSIN ON OOC 

IEF^O^f I REKUT1 ENDED 
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JOB 
00 

EXEC 

OD 

00 

OD 

00 



//REKUT1 

//JOBLIB 

// 

//STPA 

//SYSUT1 

//SYSUT2 

//SYSUT3 

//SYSLIB 

//SY SPRINT 00 

//SYSPUNCH DD 

// 

//SYSABEND OD 

//SYSIN 00 

IEF2361 

IEF237I 

IEF237I 

IEF237I 

IEF237I 

IEF237I 

IEF237I 

IEF237I 



ALLOC. 
JOBLIB 
SYSUT1 
SYSUT2 
SYSUT3 
SYSLIB 



•CLASS 6C16S , KEATQN'»S UTLTY PR JT « , MSGLEVEL= i 
DSNAME=PRILIB,UNIT=2311,SPACE=(TRK,( 1,1,1)), 
VOLUME=SER=WORK01, 01 SP= < NEW, PASS I 
PGM=ASMBLR 
DSNAME=UT1,OISP=OLO 
0SNAME=UT2,0ISP=0LD 
DSNAME=UT3,0ISP=0LD 
DSNAME=SYS1.MACLIB,DISP=0LD 
SYSOUT=A 

UNIT=231l,VOLUME=SER=WORK01,DISP=(,PASS), 
SPACE=(TRK,(l,il) 
SYSOUT=A 



FOR REKUTl 



ON 

ON 
ON 
ON 
ON 



192 
19C 
192 
192 
19C 



ITPA 



SYSPUNCH ON 192 
SYSIN ON COC 



CO 
00 



SYMBOL TYPE ID AOOR LENGTH LD 10 



EXTERNAL SYMBOL DICTIONARY 



PAGE 1 
03.29 10/26/66 



ERRTNE SD 01 000000 0000E4 



CO 



PAGE 



LOC OBJECT CODE 

000000 

cooooo 

OOOOGO 90EC DOOC 

000004 052C 

C00006 

000006 4180 2096 

OOOOOA 508D 0008 

OOOOOE 500C 209A 

000012 4100 2096 

000016 0700 
000018 4510 204A 
0000 1C 0034 
0000 IE 0000 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F24JUNE66 10/26/66 



ooooc 



0009C 
00008 
OOOAO 
0009C 



00050 





000020 E3C8C9E24004C5E2 




000050 




000050 




000050 0A23 


fs 


000052 0700 


O 


000054 451C 2082 




000058 0030 




00005A OOOC 




00005C C2C5E3E6C5C5D540 




000088 




000088 




000088 0A23 




00008A 5800 209A 



00088 



00008 e "58 ED OOOC 

000092 980Cb0i4 

000096 92FF DOOC OOOOC 

00009A 07FE 

00009C 0000000000000000 

OOOOOO 



OOOAO 

OOOOC 
00014 



1 ERRTNE 

2 

3 + 

4* 

5 

6 

7 

8 

9 
10 
11 
12+ 
13+ 
14+ 
15+ 
16+ 
+ 
17+IHB0002 
18+IHB0002A 
19+ 
20 
21 + 
22+ 
23+ 
24+ 
25+ 

26+IHB0003 " 
27+IHB0003A 
28+ 
29 
30 
31+ 
32 + 
33+ 
34+ 

35 SAVEAREA 
36 



CSECT 

SAVE (14,12) 
OS OH 

STM 14,12,12113) SAVE REGISTERS 
BALR 2,0 
USING *,2 
LA 8, SAVEAREA 

ST 8,8(13) STORE BKWRD POINTER 
ST 13.SAVEAREA+4 STORE FWD POINTER 
LA 13, SAVEAREA 

WTO *THIS MESSAGE IS THE RESULT OF AN UNEQUAL COMPARE* 
CNOP 0,4 

BAL 1,IHB0002A BRANCH AROUND MESSAGE 
DC AL2UHB0002-*) MESSAGE LENGTH 
DC AL2(0) 
DC C'THIS MESSAGE 
AGE 

OH 

35 ISSUE SVC 

•BETWEEN SYS l.PROCLIBf DICK) 

0,4 

1.IHB0003A BRANCH AROUND MESSAGE 

AL2< IHB0003-*) MESSAGE LENGTH _ ^ 

AL2(0) > 

C* BETWEEN SYSl.PRdCLIBIDICk) AND KEAfONCdICkT.« MESSAGE^ 

* " ""' ' "' """ ."" 

OH ~~ 

35 ISSUE SVC 

l3,SAVEAREA+4 
RETURN (14, 12),T,RC=(15) 
L 14,12(13,0) RESTORE REGISTER 14 



EQU 

DS 

SVC 

WTO 

CNOP 

BAL 

DC 

DC 

DC 

EQU 

OS 

SVC 

L 



IS THE RESULT OF AN UNEQUAL COMPARE* NESSX 



AND KEATON(DICK). 1 



LM 0,12,20(13) RESTORE THE REGISTERS 

MVI i2(13),X*FF* SET RETURN INDICATION 

BR 14 RETURN 

DC 18F*0* 

END ERRTNE 



CROSS-REFERENCE 



PAGE 



SYMBOL 


LEN 


VALUE 


DEFN 


REFERENCES 




ERRTNE 


000G1 


000000 


0001 


0036 




IH800C2 


OCOOl 


00C050 


0017 


0014 




IH800C2A 


00002 


000050 


0C18 


0013 




IH80003 


00001 


000088 


0026 


0023 




IHB00G3A 


00002 


000088 


0027 


0022 




SAVEAREA 


00004 


00009C 


0035 


0007 0009 0010 


0029 
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NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
53 PRINTED LINES 



IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
//STPA1 
//SYSUT 
//SYSLI 
7/SYSLM 
// 

//SYSPR 
//SYSA6 
IEF236I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 



PRILIB 

VOL SER NOS= WORKOl. 

UT1 

VOL SER NOS = 0LIB02. 

UT2 

VOL SER NOS = WORKOl. 



PASSEO 



KEPT 



KEPT 



UT3 KEPT 

VOL SER NOS = WORKOl. 

SYS1.MACLIB KEPT 

VOL SER NOS = 0LIB02. 

SYSOUT SYSOUT 

VOL SER NOS= 

AAAAAAAA. AAAAAAAA. AAA AA AAA. AAA AAA AA. 00000532 PASSEO 

VOL SER NOS= WORKOl. 

SYSOUT SYSOUT 

VOL SER NOS= 
EXEC PGM»IEWLtPARM=»XREF« 
1 OD OSNAME=UT1,DISP=OLO 

N OD DSNAME=*.STPA.SYSPUNCHfDISP=(OLD, DELETE) 
00 DO DSNAME=PRILIB(E*RTNE) t DISP=(M0D,PASS) t UNIT=2311, 
V0LUME=SER=W0RK01 
SYSOUT=A 



INT DO 

END DD 
ALLOC. 
JOBLIB 
SYSUT1 
SYSLIN 
SYSLMOD 



SYSOUT=A 
FOR REKUT1 
ON 192 
ON 190 
ON 192 
ON 192 



STPA1 






4^ 

CO 



F-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED — XREF 
IEWOOOO ERRTNE NOW AODEO TO DATA SET 



CROSS REFERENCE TABLE 



CONTROL SECTION 

NAME ORIGIN LENGTH 
ERRTNE 00 E4 



ENTRY 
NAME 



LOCATION 



NAME LOCATION 



NAME 



LOCATION 



NAME LOCATION 



ENTRY ADDRESS 
TOTAL LENGTH 



00 
E4 



IEF285I 

IEF285I 

IEF285I 

IEF285I 

1EF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

//STPA2 

//SYSPRINT DO 

//SYSUT2 DD 

//SYSIN DO 

//SYSUT1 OD * 

IEF236I ALLOC. FOR REKUTl 

IEF237I JOBLIB ON 192 

IEF237I SYSUT2 ON 191 

IEF237I SYSUT1 ON OOC 



PRILIri PASSED 

VOL SER NOS = WORKOl. 

UT1 KEPT 

VOL SER NOS = 0LIB02. 

AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.Q0000532 DFLETED 

VOL SER NOS= WORKOl. 

PRILIB PASSED 

VOL SER NOS= WORKOl. 

SYSOUT SYSOUT 

VOL SER NOS= 

SYSOUT SYSOUT 

VOL SER NOS= 

PGMMEBGENER 

SYSOUT=A 

DSNAME=SYSl.PROCLI8(DICK),DISP=OLD 

DUMMY 

* 

STPA2 



EXEC 



■N 
-^ 



DATA SET UTILITY - GENERATE PAGE OOOJ 

PROCESSING ENDEO AT EOD 



ft 



IEF285I 


pRiLia 


PASSED 


IEF285I 


VOL SER NUS= WORKOl. 




I6F285I 


SYSOUT 


SYSOUT 


IEF285I 


VOL SER NOS= 




I6F285I 


SYS1.PROCLIB 


KEPT 


IEF285I 


VOL SER NOS= SYSRES. 




IEF285I 


NULLFILE 


KEPT 


IEF285I 


VOL SER NOS= 




//STPC1 


EXEC PGM=IEHLIST 




//D01 


DD UNIT=2311 tVOLUME=SER=SYSRES,DISP=OLD 




//SYSPRINT OD SYSOUT=A 




//SYSIN 


DD * 




IEF236I 


ALLOC. FOR REKUTl STPC1 




IEF237I 


JOBLIB ON 192 




IEF237I 


DD1 ON 191 




IEF237I 


SYSIN ON OOC 








SYSTEMS SUPPORT UTILITIES IEHLIST 



PAGE OOOl 





DIRECTORY INFO FOR 


SPECIFIED 


POS ON VOL 


SYSRES 




SYS1.PR0CLIB 










MEMBERS 


TTRC 


VARIABLE 


USER DATA 




AOOPROCS 


00000702 


00063066 






ASMEC 


C0000C02 


00017033 






ASMECL 


00010202 


00013040 






ASMECLG 


00011302 


00013040 






ASMFC 


00020C02 


01010059 






ASMFCL 


00021502 


01010059 






ASMFCLG 


00C30D02 


01010059 






ASM1 


00040702 


00062966 






ASMIE 


00050402 


00629660 






ASM1LINK 


00060302 


00052466 






ASM3 


00060700 








ASM3C0G0 


00070900 








COB EC 


0008 OB 02 


01017005 






COBECLG 


00081202 


01011015 






COBELG 


00090B02 


01011015 






cm OGO 


0009160? 








(DICK 


0Q130C00 








EDCTLAM2 


OOOAOFOO 






£ 

VJ 


FORTEC 


000A1402 


00019041 




FORT EC LG 


O0OA1C02 


00019047 






FORTELG 


000B1602 


00013068 






LIST 


000C0802 


00013077 






LKED 


000COCO2 


00016043 






LKEOG 


000C1402 


00613068 






"MOD : 


000D0202 


000 13068 






PL1DFC 


000D0602 


00018018 






PL1LFC 


00 000 DO 2 


00018018 






PL1LFCL 


000D1502 


00018018 






PL1LFCLG 


000E0B02 


00018018 






PLlLG 


000F0462 


00018018 






PUNCH 


OOOFODOO 








SCRATCH 


000 F 1002" 


00063066 






SORT 


000F1702 


00019035 






SYSLIST 


00100502 


00063066 






TASME 


00100C02 


00017032 






TASMEG 


001 10502 


00015065 






TASMEGED 


00111902 


00016043 






TfED 


dbi21A02 


00015065 





CUSER DATA AND TTRC ARE IN HEX I 



IEF285I 


PRILI8 


PASSED 


IEF2851 


VOL SER NOS= WORKOl. 




IEF285I 


SYSl.PROCLIB 


KEPT 


IEF285I 


VOL SER NOS = SYSRES. 




IEF2851 


SYSOUT 


SYSOUT 


IEF285I 


VOL SER NOS= 




//STPA3 


EXEC PGM=IE8PTPCH 




//SYSIN 


DO DSNAME=SYSl.PROCLIB(DICK) f DISP=OLO 




//SYSUT2 


! 00 SYSQUT=A 




//SYSPRINT DO SYSOUT=A 




//SYSUT1 


DO * 




IEF236I 


ALLOC. FOR REKUT1 STPA3 




IEF237I 


J08LIB ON 192 




IEF237I 


SYSIN ON 191 




IEF237I 


SYSUT1 ON OOC 





00 



PRINT/PUNCH DATA SET UTILITY PAGE OOOi 

PRINT TYPORG=PS,MAXFLDS=2 OOOOOOIO 

TITLE ITEM=(«80-80 LIST OF DATA CARDS BY KEAT0N»,33) 00000020 

RECORD FIELD=(80f f ,10) 00000040 

EOF ON SYSIN 



J5- 

S3 



PAGE 001 
80-80 LIST OF DATA CARDS BY KEATON 
IN ORDER TO PRINT THESE DATA CARDS FROM THE INPUT JOB STREAM IT MAS NECE- 
SSARY TO PUT THE IEBPTPCH CONTROL CARDS OUT ON A DATA SET OTHER THAN SYSIN. 
THIS IS THE LAST DATA CARD. 
END OF DATA FOR SOS OR MEMBER 



O 



EXEC 



IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

//STPA4 

//SYSPRINT DO 

//SYSIN DO 

//SYSUT2 DO 

/"/ 

//SYSUT1 DO * 

IEF236I ALLOC. FOR REKUT1 

IEF237I JOBLIB ON 192 

IEF237I SYSUT2 ON 182 

IEF237I SYSUT1 ON OOC 



PRILIB PASSED 

VOL SER NOS= WORKOl. 

SYS1.PR0CLI8 KEPT 

VOL SER NOS= SYSRES. 

SYSOUT SYSOUT 

VOL SER NQS= 

SYSOUT SYSOUT 

VOL SER NOS= 

PGMMEBGENER 

SYSOUT=A 

DUMMY 

UNIT=2400,LABEL=( f NL),DISP=( ,PASS), 

OCB={ ,RECFM=F f BLKSIZE=80) 

STPA4 



Oi 



DATA SET UTILITY - GENERATE PAGE 0001 

PROCESSING ENDEO AT EOD 



N> 



IEF265I PRILlB PASSED 

IEF285I VOL SER NOS= WORKQ1. 

IEF285I SYSOUT SYSOUT 

IEF285I VOL SER NOS= 

IEF285I NULLFILE KEPT 

IEF285I VOL SER NOS= 

IEF285I AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.00000546 PASSEO 

IEF285I VOL SER NOS= 

//STPB EXEC PGM=IEBPTPCH 

//SYSUT1 DD DSNAME=*.STPA4,SYSUT2,DISP=(0LD f DELETE), 

// DCB=<,RECFM=F f BLKSUE=80) 

//SYSUT2 OD SYSOUT=A 

//SYSPRINT DD SYSOUT=A 

//SYSIN OD * 

IEF236I ALLOC. FOR REKUT1 STPB 

IEF237I JOBLIB ON 192 

IEF237I SYSUT1 ON 182 

IEF237I SYSIN ON OOC 



CO 



PRINT/PUNCH DATA SET UTILITY PAGE 0001 

PRINT MAXFLDS=2 

TITLE ITEM=< •LISTING OF TAPE RECORDS BY KEATON',33) 
RECORD FIELD=(80,,,10) 
EOF ON SYSIN 



Ui 



PAGE 001 
LISTING OF TAPE RECORDS 8Y KEATON 
THESE RECORDS WERE FIRST PUT OUT ON TAPE FROM DATA CARDS IN THE INPUT STREAM 
BY USING IE8GENER. THEY ARE BEING PRINTED AS A CHECK. 
THIS IS THE LAST RECORD. 
END OF DATA FOR SDS OR MEMBER 



Cm 



IEF285I PRILI8 PASSED 

IEF285I VOL SER NOS= WQRKOi. 

1EF285I AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA. 00000546 DELETED 

IEF285I VOL SER NOS= 

IEF285I SYSOUT SYSOUT 

IEF285I VOL SER NGS = 

IEF285I SYSOUT SYSOUT 

IEF285I VOL SER MOS= 

//STPB1 EXEC PGM=IEBCOPY 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DO DSNAME=SYS1.PR0CLIB(0ICK),DISP=0LD 

//SYSUT2 DD UNIT=2311,SPACE={TRK,<l,i,l)),DISP=<NEW,PASS), 

// DSNAME=KEATON(DICK),VOLUME=SER=WORK01 

//SYSIN DD * 

IEF236I ALLOC. FOR REKUTl STPBl 

IEF237I J08LIB ON L92 

IEF237I SYSUT1 ON 191 

IEF237I SYSUT2 ON 192 

IEF237I SYSIN ON OCC 



Cn 



PDS COPY UTILITY PAGE OOOl 



COPY TYPC0PY=I,MAXNAME=1 

MEMBER NAME=DICK 
INCLUSIVE COPY INVOKED 
DICK SUCCESSFULLY COPIED 
END OF TASK 



\1 



IEF285I PRILIB PASSED 


IEF285I VOL 


SER NOS= HORKOl. 


IEF285I SYSOUT SYSOUT 


IEF285I VOL 


SER NOS= 


IEF285I SYS1 


.PROCLIB KEPT 


IEF285I VOL 


SER N0S= SYSRES. 


IEF285I KE A f ON PASSED 


IEF285I VOL 


SER NOS= WORKOi. 


//STPB EXEC 


PGM=IEBUPOAT,PARM=MOD 


//SYSPRINT DD 


SYSOUT=A 


//SYSUT2 DD 


0SNAME=KEAT0NtDICK),UNIT=231l,V0LUME=SER=W0RK01, 


// 


DISP=(MOD,PASS) 


//SYSUT1 DO 


DSNAME=KEA TON (DICK), UNI T=2311,VOLUME=SER=WORK01, 


"// 


DISP=CMOD,PASS) 


//SYS IN DD 


* 


IEF236I ALLOC. 


FOR REKUT1 STPB 


IEF237I JOBLIB 


ON 192 


IEF237I SYSUT2 


ON 192 


'IEF237i' SYSUTl 


ON 192 


IEF237I SYSIN 


ON OOC 



00 



IF8UP0AT 



LOG 



PAGE 0001 



SOURCE LINE DELETED 
SOURCE LINE INSERTED 



/ 


CHNGE 




PRINT 


/ 


OELET 




TITLE 




TITLE 




RECORD 



DICK, 01, 0,1 
TyP0RG=PS,MAXFLDS=2 
00000020,00000020 
ITEM=(» 80-80 LIST OF DATA 
ITFM=( 'REPLACED RECORD IN 
FIELD=<80,,,10> 



CARDS BY 
PDS DICK' 



KEATON«,33) 
,40) 



00000010 

00000020 
00000020 
00000040 



ABOVE NAME(DICK 



HIGHEST CONCODE WAS 



)FOUND IN NM DI RECTORY, TTR IS NOW ALTERED 

./ ENDUP 
00000.000 



Oi 



IEF285I PRILIB PASSED 

IEF285I VOL SER MQS= WOKKOl. 

IEF285I SYSOUT SYSOUT 

IEF285I VOL SER NOS= 

IEF285I KEATON PASSED 

IEF285I VOL SER NOS= WORKOl. 

IEF285I KEATON PASSED 

IEF285I VOL SER NOS= WORKOl. 

//STPC EXEC PGM=IE8C0MPR 

//SYSUT1 DO DSNAME=SYSl.PROCLIB(DICK),DISP=OLD 

//SYSUT2 OD DSNAME=KEATON(DICK),UNIT=23U,VOLUME=SER=WORK01, 

// DISP=(OLD, DELETE) 

//SYSPRINT DD SYSOUT=A 



//SYSABEND DD SYSOUT=A 

7/SYSIN DD * 

IEF236I ALLOC, FOR REKUT1 STPC 
IEF237I JOBLIB ON 192 
1EF237I SYSUT1 ON 191 
IEF237I "SYSUT2 ON 192 
IEF237I SYSIN ON OOC 



O 



COMPARE UTILITY PAGE OOOl 

COMPARE 

EXITS ERROR=ERRTNE 
lE822il RECORDS ARE NOT EQUAL 

DDNAME = SYSUT1 

PHYSICAL RECORD NUMBER = 00000002 LOGICAL RECORD NUMBER WITHIN PHYSICAL RECORD = 00000001 
404040404040404040E3C9E3D3C540C9E3C5D47E4D7DF8F060F8F040D3C9E2E340D6C640C4ClE3C140C3ClD9C4E240C2E840D2C5CiE3D6D5706BF3F3 
5D40404C4040404040404040FCFOFOFOFOFOF2FO 

DDNAME = SYSUT2 

PHYSICAL RECORD NUMBER = C0000002 LOGICAL RECORD NUMBER WITHIN PHYSICAL RECORD = 00000001 
40404 0404 040404040E3C9E3D3C540C9E3C5D47E407DD9C5D7D3CIC3C5C440D9C5C3D6D9C440C9D540D7C4E240C4C9C3D27D68F4F05D40 4040404040 
4b404C40404C4C4040404040FOFOFOFOFOFOF2FO 
IEB225I JOB TERMINATED AFTER EXIT 

END OF JOB-TOTAL NUMBER OF RECORDS COMPARED = 00000002 



O 



IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
//STPC2 
//D01 

7/SYSPRINT OD 
//SYSIN DO * 
IEF236I ALLOC. FOR REKUT1 
IEF237I JOBLIB ON 192 
IEF237I D01 
IEF237I SYSIN 



PRlLIB PASSED 

VOL SER NOS= WORK01. 

SYS1.PR0CLI8 KEPT 

VOL SER NOS= SYSRES. 

KEATON DELETED 

VOL SER NOS= W0RK01. 

SYSOUT SYSOUT 

VOL SER NOS= 

SYSOUT SYSOUT 

VOL SER NOS= 

PGMMEHPROGM 

UNIT=2311,V0LUME=SER=SYSRES,DISP=0LD 

SYSOUt=A 



EXEC 
DD 



STPC2 



ON 191 

ON ode 






o 

CO 



.SJA!§*-_Sy? P0RT UTILITIES IEHPROGM PAGE OOOl 

SCRATCH DSNAME=SYSl.PROCLIB,VQL=2311=SYSRES f MEMBER=DICK,PURGE 
NORMAL END OF TASK RETURNED FROM SCRATCH 

UTILITY END 



IEF285I 


PRILIB 


IEF285I 


VOL 


SER NOS= WORKOl. 


IEF285I 


SYS1 


.PROCLIB 


IEF285I 


VOL 


SER NOS= SYSRES. 


IEF285I 


SYSOUT 


IEF285I 


VOL 


SER NOS= 


//STPC3 


EXEC 


PGM=IEHLIST 


//D01 


DO 


UNIT=2311,V0LUME=SER=SYSRES,DISP=0LD 


//SYSPRINT DO 


SYSQUT=A 


//SYSIN 


DD 


* 


IEF236I 


ALLOC. 


FOR REKUT1 STPC3 


IEF237I 


JOBLIB 


ON 192 


IEF237I 


OD1 


ON 191 


IEF237I 


SYSIN 


ON OOC 



PASSED 

KEPT 

SYSOUT 






SYSTEMS SUPPORT UTILITIES IEHLIST 



PAGE OOOl 






DIRECTORY INFO FOR 
SYSl.PROCLIB 

MEMBERS 
A0DPR0CS 
ASMEC 
ASMECL 
ASMECLG 
ASMFC 
ASMFCL 
ASMFCLG 
ASM1 
ASM1E 
ASM1LINK 
ASM3 

ASM3C0G0 
COBEC 
C08ECLG 
COBELG 
COLOGO 
EDCTLAM2 
FORTEC 
FORTECLG 
FORTELG 
LIST 
LKED 
LKEDG 
MOD 

PL1DFC 
PL1LFC 
PL1LFCL 
PL1LFCLG 
PL1LG 
PUNCH 
SCRATCH 
SORT '_" 
SYSUSf 
TASHE 
TASNEG 
TASMEGED 
tt'ED""" 



SPECIFIED POS ON VOL SYSRES 



TTRC 
00000702 
00C00C02 
00010202 
00011302 
00020C02 
00021502 
00030D02 
C0040702 
00050402 
00060302 
00060700 
CO 6 70900 
00080B02 
00C81202 
00090B02 
00091602 
OOOAOFOO 
O0OA1402 
000A1C02 
000B1602 
000C0802 
00OC0CO2 
000C1402 
O00DO202 
OQOD0602 

obopooo2 

00001502 
000E0B02 
000F0402 
000FOO00 
000F1002 
OOOTF1702 
00100502 
00100C02 
00110502 
66111902 

66i2U02 



VARIABLE USER DATA 
00063066 
00017033 
00013040 
00013040 
01010059 
01010059 
01010059 
00062966 
00629660 
00052466 



01017005 
01011015 
01011015 
00063000 

00019041 
00019047 
00013068 
00013077 
00016043 
00013068 
00013068 
00018018 
66018018 
00018018 
00018018 
00018018 

66663066" 

00019035 

00063066 

00017032 

00015065 

00016043 

00015065 



(USER DATA AND TTRC ARE IN HEX) 






IEF285I PRILIB PASSEO 

IEF285I VOL SER NOS = WORKOl. 

IEF285I SYS1.PROCLIB KEPT 

IEF285I VOL SER NOS = SYSRES. 

IEF285I SYSOUT SYSOUT 

IEF285I VOL SER NOS= 

IEF285I PRILIB DELETED 

IEF285I VOL SER NOS= WORKOl. 



STUDENT PROBLEM - LINKAGE Editor 

A program has been divided into five segments and assigned to several programmers. 
Each programmer has written and compiled his segment. It is now necessary to combine these 
segments into an executable program. It has been decided that a minimum amount of storage 
will be utilized for this program. 

Construct an overlay program using the linkage editor and run this program. 



MAIN Read cards; if there is a B in Column 1, call PGMB; if no B, call the error routine 

PGMA. (Coded in assembler language) 

PGMA Error routine; prints error message and error card on console; returns to MAIN. 

(Coded in assembler language) 

PGMB Table Lookup Routine; uses columns 2 through 6 to find a message in a table; if 

message is found, call PGMB2 to print the message; if there is no message, call 
PRGB1 to print an error message. (Coded in COBOL) 

PGMB1 Error routine; prints error message about missing entry in table; returns. (Coded 

in assembler language) 

PGMB2 Print messages found in the table; return. (Coded in assembler language) 

QUESTIONS TO ANSWER: 

1 . How much storage will the overlay program require? 

2. How much storage would the program have taken without overlaying? 

3. How much storage to the SEGTAB and ENTAB's require? 
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jcssj: SUPPLY JOB CONTROL AND LINK EDIT STATEMENTS TO BUILD OVERLAY (STEPA) :{:::::! 

""- DATA SETS CALLED SYSUT1 (SEQ), SYSLMOD (PART.), AND SYSl.OBJMODS (PART.), 

:c:c:c HAV E BEEN CATALOGED. SYSl.OBJMODS CONTAINS INPUT MODULES. :::«s:JJ:c:Ji: :?:::: :?:«:: 

//STEPB EXEC PGM=".STEPA. SYSLMOD 

//SYSABEND DD SYSOUT=A 

//OUTPUT DD SYSOUT=A 

//INPUT DD » 

Al THIS CARD SHOULD BE IN ERROR - PGMA HAS PRINTED IT ON THE CONSOLE. 

Blllll CARD 1 

B22222 CARD 2 

B33333 CARD 3 

B^ 1 *^ CARD 4 

A2 THIS CARD SHOULD BE IN ERROR - PGMA HAS PRINTED IT ON THE CONSOLE. 

B55555 CARD 5 - THIS CARD IS AN ERROR - PGMB1 PRINTED IT. 

B66666 CARD 6 

/:: 



169 



EXTERNAL SYMBOL DICTION 



SYMBOL TYPE ID ADDR LENGTH LD ID 



MAIN 


SD 


01 


000000 0001A0 


ENTRYA 


ER 


02 




ENTRYB 


ER 


03 





RELOCATION DICTIONARY 



S. ID 


REL. ID 


FLAGS 


ADDRESS 


01 


01 


08 


000019 


01 


01 


08 


0000ID 


01 


01 


08 


000081 


01 


01 


08 


000085 


01 


01 


08 


000101 


01 


02 


1C 


00003C 


01 


03 


1C 


000058 



CROSS-REFERENCE 



SYMBOL 


LEN 


VALUE 


DEFN 


REFERENCES 




CALLB 


0000*+ 


00004A 


0033 


0025 






CARDEND 


0000*+ 


000068 


0044 


0095 






CARDIN 


00004 


0000E0 


0074 


0015 


0020 


0055 


CON 


00004 


0000DC 


006 7 


0033 


0034 




IHB0005B 


00004 


00003C 


0029 


0030 






IHB0006B 


00004 


000058 


0038 


0039 






IHB0007 


00001 


00007A 


0048 


0045 






IHB0007A 


00002 


00007A 


0049 


0044 






LOOP 


00004 


000022 


0020 


0032 


0041 




MAIN 


00001 


000000 


0001 








PRINT 


00004 


000140 


0L30 


0017 


0023 


0057 


SAVEM 


00004 


000094 


0066 


0007 


0008 


0059 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
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MAIN 



LOOP 



CALLB 



CARDEND 



START 

SAVE 

BALR 

USING 

ST 

LA 

ST 

LR 

OPEN 

GET 

LA 

CLI 

BE 

CALL 

B 

ST 

LA 

CALL 

B 

WTO 

CLOSE 

L 

RETURN 







SAVE REGISTERS 



STANDARD ENTRY CODE 



(1^,12) 
12,0 
sc 12 

13,SAVEM+4 

11,5AVEM 

11,8(0,13) 

13,11 

(CARDIN,, PR I NT, (OUTPUT)) 

CARDIN GET A CARD 

11, PRINT 

0(1), C'B 1 

CALLB 

ENTRYA NOT A B CARD 

LOOP 

l,CON 

l,CON 

ENTRYB 

LOOP 

'END OF JOB' 

(CARDIN,, PRINT) 



13,SAVEM+4 
(14,12) 



STANDARD EXIT CODE 



CONSTANTS AND DCB'S 



SAVEM 


DS 


18F 


CON 


DS 


IF 


CARDIN 


DCB 


DSO 



PRINT 



DCB 

END 
END 



DSORG=PS,MACRF=(GL),DDNAME=INPUT,RECFM=F,LRECL=80, 
BLKSIZE=80,BFTEK=S,EODAD=CARDEND,EROPT=ACC 
DSORG=PS,MACRF=(PM),DDNAME=OUTPUT,RECFM=F,LRECL=120, 
BLKSIZE=12 0,BFTEK=S,EROPT=ACC 



MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 



MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 
MAINP 

CMAINP 
MAINP 

CMAINP 
MAINP 
MAINP 
MAINP 
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ENTRYA 



EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE ID ADDR LINGTH LD ID 



PC 01 000000 000079 

LD 000000 01 



LOC OBJECT CODE 
000000 



ADDR1 ADDR2 STM1 



SOURCE STATEMENT 



000000 






000000 


90EC 


DOOC 


000004 


05C0 




000006 






000006 


D24F 


C023 1000 


oooooc 


*f 1 10 


C012 


000010 


0A23 




000012 


98EC 


DOOC 


000016 


07FE 




000018 






000018 


0061 




00001A 


0000 




00001C 


C5D9D9D6D940C3C1 


000029 







ooooc 



00018 



OOOOC 



1 


START 





2 - 

3 " 

4 ENTRYA 


THIS IS 


TO BE PGMA 


SAVE 


(14,12) 


5+ENTRYA 


DS 


OH 


6 + 


ST, 


14,12,12(13) 


7 


BALR 


12,0 


8 


USING 


",12 


9 


MVC 


OUTREC, 0(1) 


10 


LA 


1,REC 


11 


WTO 


MF=(E,(1)) 


12+ 


SVC 


35 ISSUE SVC 


13 


RETURN (14,12) 


14+ 


LM 


14,12,12(13) 


15+ 


BR 


14 RETURN 


16 


DS 


OF 


17 REC 


DC 


H»97' 


18 


DC 


H'O' 


19 


DC 


C'ERROR CARD 


20 OUTREC 


DS 


CL80 


2J 


ENTRY 


ENTRYA 


22 


END 





SAVE 



REST 



CROSS-REFERENCE 



SYMBOL 

ENTRYA 
OUTREC 
REC 



LEN VALUE DEFN 



00002 
00080 
00002 



000000 
000029 
000018 



0005 
0020 
0017 



REFERENCES 

0021 
0009 
0010 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
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IDENTIFICATION DIVISION 
PROGRAM-ID. 'ENTRYB'. 
REMARKS. THIS IS A COBOL P 
FINDINGS TO A SUBP 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-360. 
OBJECT-COMPUTER. IBM-360. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 



ROGRAM TO DO A TABLE LOOKUP AND PASS 
ROGRAM. 



01 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
01 



TABLE-1 



Al 
Fl 
A2 
F2 
A3 
F3 
A*t 
F4 
A5 
F5 



PICTURE X(5) VAL 
PICTURE A(35) VALUE 
PICTURE X(5) VALUE 
PICTURE AC35) VALUE 
X(5) VALUE I 
A(35) VALUE 
X(5) VALUE I 
A(35) VALUE 
X(5) VALUE I 
A(35) VALUE 



PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
TABLE-2 REDEFINES TABLE 

02 ITEM OCCURS 5 TIMES. 
05 FINDER PICTURE XC5) 

03 FOUND PICTURE A(3 
77 COUNT PICTURE 

LINKAGE SECTION. 
01 PASSED-CARD. 

02 CARD-CODE PIC 
02 CONTROL-FIELD PI 
02 REST-OF-CARD PIC 
PROCEDURE DIVISION. 

ENTER LINKAGE. 

ENTRY 'ENTRYB' 

ENTER COBOL. 

MOVE 1 TO COUNT 
IN. OF CONTROL-FIELD 

ADD L TO COUNT. 

IF COUNT = 6 GO 

GO TO IN. 
CALLB2. 

ENTER LINKAGE. 

CALL 'ENTRYB2* USING 

ENTER COBOL. GO TO E 
NO-FIND. 

ENTER LINKAGE. 

CALL 'ENTRYBl' 

ENTER COBOL. 
EXIT-ROUTINE. 

ENTER LINKAGE. 

RETURN. 

ENTER COBOL. 



UE IS ' 11111' . 

♦CONGRATULATIONS YOU HAVE GOTTEN'. 

IS '22222'. 

' THE OBERLAY PROGRAM TO EXECUTE TO*. 
S '33333*. 
' COMPLETION IF YOU HAVE PRINTED 5 ' 

' CARDS ON THE PRINTER AND THREE ON'. 

S '66666'. 

* THE CONSOLE. 

-1. 



ro. 

9. 



TURE A. 
CTURE S(5). 
TURE XC7 t O. 



USING PASSED-CARD. 

= FINDER C COUNT ), GO TO CALLB2 
TO NO-FIND. 



FOUND C COUNT ) PASSED-CARD, 
XIT-ROUTINE. 



USING PASSED-CARD. 



PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB, 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGMB. 
PGM8. 
PGMB. 
PGM1. 
PGMB. 
PGMB. 
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EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE ID ADDR LENGTH LD ID 



ENTRYB1 SD 01 000000 000086 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT 



SOURCE STATEMENT 



000000 

000000 
000000 
00000*+ 
000006 
000006 
00000A 
000010 



90EC 
05C0 

5820 
D249 
4110 



D00C 



1000 
C036 
C016 



2000 0003C 



000014 0A23 



000016 
00001A 
00001C 
00001C 
00001E 
000020 
00003C 



98EC 
07FE 



DOOC 



006A 
0000 
C3D6D5E3D9D6D340 





1 ENTRYB1 


START 







2 


SAVE 


(14,12) 




3 + 


DS 


OH 


ooooc 


4+ 


STM 


14,12,12(13) SA 




5 


BALR 


12,0 




6 


USING 


",12 


00000 


7 


L 


2,0(0,1) 


00000 


8 


MVC 


OUTPUT(74),0(2) 


0001C 


9 


LA 


l,OUT 




10 


WTO 


MF=(E,(1)) 




11 + 


SVC 


35 ISSUE SVC 




12 


RETURN (14,12) 


ooooc 


13+ 


LM 


14,12,12(13) RE 




14+ 


BR 


14 RETURN 




15 


DS 


OF 




16 OUT 


DC 


H'106' 




17 


DC 


H'O' 




18 


DC 


C'CONTROL FIELD 




19 OUTPUT 


DS 


CL74 




20 


END 





CROSS-REFERENCE 



SYMBOL 



LEN 



VALUE 



DEFN 



REFERENCES 



ENTRYB1 

OUT 

OUTPUT 



00001 
00002 
00074 



000000 
00001C 
00003C 



00 01 
0016 
0019 



0009 
0008 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 



174 



SYMBOL TYPE ID ADDR LENGTH LD ID 



ENTRYB2 SD 01 000000 000108 



EXTERNAL SYMBOL DICTIONARY 



LOC OBJECT CODE ADDR1 ADDR2 STMT 



SOURCE STATEMENT 



000000 

000000 
000000 
00000*+ 
000006 
000006 
00000A 
00000E 
000012 
00001** 
000018 
00001C 
000020 
000021+ 
00002A 



90EC 
05C0 

50D0 
41B0 
50B0 
18DB 
58B0 
58B0 
5 8AO 
9823 
D222 
D249 



DOOC 



C046 
C042 
D008 

D004 
B004 
B040 
1000 
C08A 
COAD 



2000 
3000 



00090 
000B3 



000030 181A 
000032 ^ 100 C08A 
000036 58F0 1030 
00003A 05EF 
00003C 58D0 C046 

000040 98EC DOOC 

0000*+*+ 07FE 

000048 

000090 

0000FE 4040404040404040 



0000C 



0004C 
00048 
00008 

00004 
00004 
00040 
00000 
00000 
00000 



00090 
00030 

0004C 

ooooc 



1 ENTRYB2 START 

2 SAVE (14,12) 
3+ DS OH 

4+ STM 14,12,12(13) SAVE REGIST 

5 BALR 12,0 

6 USING », 12 

7 ST 13,SAVEB+4 

8 LA 11,SAVEB 

9 ST 11,8(0,13) 

10 LR 13,11 

11 L 11,4(0,13) 

12 L 11,4(0,11) 

13 L 10,64(0,11) 

14 LM 2,3,0(1) 

15 MVC WORK(35),0(2) 

16 MVC WORK+35(74),0(3) 

17 PUT (10), WORK 

18+ LR 1,10 LOAD PARAMETER REG 

19+ LA O.WORK LOAD PARAMETER REG 

20+ L 15,48(0,1) LOAD PUT ROUTE 

21+ BALR 14,15 LINK TO PUT ROUTINE 

22 L 13,SAVEB+4 

23 RETURN (14,12) 

24+ LM 14,12,12(13) RESTORE THE 

25+ BR 14 RETURN 

26 SAVEB DS 18F 

27 WORK DS CL110 

28 DC CLIO 1 ' 

29 END 
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//BLDOVLY JOB 0, FPV, MSGLEVEL=1 

//STEPA EXEC PGM=IEWL,PARM=COBLY,XREF,LIST) 

//SYSPRINT DD SYSOUT=A 

//SYSLIB DD DSNAME=SYS1.0BJMODS,DISP=OLD 

//SYSUT1 DD DSNAME=SYSUTl,DISP=OLD 

//SYSLMOD DD DSNAME=SYSLMOD(RUN), DI SP=OLD 

//SYSLIN DD « 

INCLUDE 

OVERLAY 

INCLUDE 

OBERLAY 

INCLUDE 

OVERLAY 

INCLUDE 

OVERLAY 

INCLUDE 

ENTRY MAIN 

NAME RUN(R) 
/» 

//STEPB EXEC PGM= : «. STEPA. SYSLMOD 
//SYSABEND DD SYSOUT=A 
//OUTPUT DD SYSOUT=A 
//INPUT DD " 
Al THIS CARD SHOULD 
Bl 11 11 CARD 1 

B22222 CARD 2 

B33333 CARD 3 

B*t***t***f CARD *t 

A2 THIS CARD SHOULD 
B55555 CARD 5 

B66666 CARD 6 



SYSLIB(MAIN) 

POINT1 

SYSLIBCPGMA) 

POINT1 

SYSLIB(PGMB) 

POINT2 

SYSLIBCPGMBO 

POINT2 

SYSLIB(PGMB2) 



BE IN ERROR - PGMA HAS PRINTED IT ON THE CONSOLE 



BE IN ERROR - PGMA HAS PRINTED IT ON THE CONSOLE 
- THIS CARD IS AN ERROR - PGMB1 PRINTED IT. 
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LINKAGE EDITOR OPTIONS SPECIFIED OVLY, XREF, LI ST 

IEW0000 INCLUDE SYSLIB(MAIN) 

IEW0000 OVERLAY POINT1 

IEW0000 INCLUDE SYSLIB(PGMA) 

IEWOOOO OVERLAY POINT1 

IEW0000 INCLUDE SYSLIB(PGMB) 

IEWOOOO OVERLAY POINT2 

IEWOOOO INCLUDE SYSLIB(PGMBl) 

IEWOOOO OVERLAY POINT2 

IEWOOOO INCLUDE SYSLI B(PGMB2) 

IEWOOOO ENTRY MAIN 

»»»»RUN NOW REPLACED IN DATA SET 



CROSS REFERENCE TABLE 



CONTROL SECTION ENTRY 

NAME ORIGIN LENGTY SEG. NO. NAME 



$SEGTAB 

MAIN 
$ENTAB 



00 2C 1 

30 1A0 1 

IDO 24 1 



LOCATION 



NAME LOCATION 



LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO. 



6C 
88 



ENTRYA 
ENTRYB 



ENTRYB 3 

CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH SEG. NO. NAME LOCATION 

SPRIVATE 1F8 79 2 

ENTRYA 1F8 

LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO. 



NAME LOCATION 



CONTROL SECTION 

NAME ORIGIN 

ENTRYB 1F8 

$ENTAB 5B0 



LENGTH SEG. NO 
3B6 3 
24 3 



ENTRY 

NAME LOCATION 



ENTRYB 



4B0 



NAME LOCATION 



LOCATION REGERS TO SYMBOL IN CONTROL SECTION SEG. NO. 
470 ENTRYB2 ENTRYB2 5 
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LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO. 

hlh ENTRYB1 ENTRYB1 <+ 

CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH SEG. NO. NAME LOCATION 
ENTRYB1 5D8 86 4 



NAME LOCATION 



LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO. 



CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH SEG. NO. NAME 
ENTRYB2 5D8 10<+ 5 



LOCATION 



NAME LOCATION 



LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO. 



ENTRY ADDRESS 
TOTAL LENGTH 



30 
6DC 
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